|
Registriert seit: 4. Mai 2005
846 Beiträge
Delphi 7 Enterprise
|
Re: Text in Memo finden
9. Mai 2007, 13:40
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;
Blackheart
|
|
|
Zitat
|