Wie löscht man ein Textobjekt-Bild?

skoschke

Hallo,

ich habe TextObjekte wpobjMergeField die mit

Code

var
  txtobj: TWPTextObj;
  fnam: string;
begin
  fnam := 'Formularfeld_1';
  txtobj := WPRichtext.InputMergeField(fnam, 'Hallo');

eingefügt werden.

Diese kann ich mit

Code

WPRichtext.DeleteField(FieldName, true);

löschen.

Weiterhin gibt es Bilder wpobjImage, die so erzeugt werden:

Code

var
  txtobj: TWPTextObj;
  fnam: string;
begin
  fnam := 'Formularbild_1';
  txtobj := WPRichtext.Memo.RTFData.TextObjects.Insert
    (WPLoadObjectFromFile(WPRichtext.Memo.RTFData, 'c:\temp\test.bmp', 2000, 2000);

wie kann ich diese anhand ihres Namens löschen?

Mit folgendem Code funktioniert es zwar, ich bin mir aber nicht sicher ob ich ein Textobjekt so einfach zerstören darf?

Code

    list := TWPTextObjList.Create;
    WPRichtext.TextObjectsGetList(list, wpobjImage, true);
    for i := 0 to list.Count - 1 do
    begin
      if list[i].Name = FieldName then
      begin
        list[i].Destroy;
        break;
      end;
    end;
    list.Free;

Alles anzeigen

Ciao

Stefan

wpsupport

Normalerweise würde man Free aufrufen und nicht Destroy, aber ein Destroy eines TWPTextObjet führt einigen code aus, u.a. wird das Objekt auch aus dem Absatz abgemeldet.

skoschke

OK, danke, dann Free ich das Objekt...

Ciao

Stefan