Text in Memo finden

[joachimd]

Zitat von Blackheart:

Delphi-Quellcode:

function Between(Tag,Tag2,Text:String):String;
begin
  Delete(Text,1,Pos(Tag,Text));
  Delete(Text,Pos(Tag2,Text),Length(Text));
  Result:=Text;
end;

passt nicht, wenn er nach längeren Tags sucht (zB <title>...</title>). Dann bitte folgendes:

Delphi-Quellcode:

function Between(Tag1, Tag2, Text: String): String;
begin
  Delete(Text,1,Pos(Tag1,Text)+length(Tag1)-1); //Änderung hier!
  Delete(Text,Pos(Tag2,Text),Length(Text));
  Result:=Text;
end;

Verwendung der Funktion:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=Between('<title>','</title>',Memo1.Text);
end;