|
Registriert seit: 17. Feb 2005
Ort: Weitingen
672 Beiträge
Delphi 10.4 Sydney
|
Re: Text in Memo finden
10. Mai 2007, 16:28
Zitat von Blackheart:
Ein Blick in die Delphihilfe hätte das Problem wahrscheinlich gelöst. 
StringReplace(text, '<head>', '<head>' + Edit1.Text, [rfReplaceAll, rfIgnoreCase]); reicht nicht!
@Tommy:
Such Dir die Positionen von <HEAD> und </HEAD> und bastel Dir einen String über Copy zusammen:
Delphi-Quellcode:
function ReplaceBetween(Tag1, Tag2, Text, NewText: String): String;
var
iTag1, iTag2: integer;
begin
iTag1:=Pos(Tag1,Text)+length(Tag1);
iTag2:=Pos(Tag2,Text);
Result:=Copy(Text,1,iTag1)+NewText+Copy(Text,iTag2+1,Length(Text));
end;
|
|
|
Zitat
|