String suchen

[bitsetter]

Hallo,

ich glaube so geht es:

Delphi-Quellcode:

Function DeleteHtml(Text: string): string;
var
   pos1, pos2: integer;
begin
  pos1 := pos('<', Text);
  pos2 := pos('>', Text);
  while pos2 <> 0 do
  begin
    delete(Text, pos1 , pos2- pos1+ 1);
    pos1 := pos('<', Text);
    pos2 := pos('>', Text);
  end;
  Result := text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Beispiel: Text der bearbeitet werden soll ist in Memo1
  Memo1.Lines.Text:= DeleteHtml(Memo1.Lines.Text);
end;

EDIT: habe jetzt daraus die Funktion DeleteHtml gemacht