Delphi Text in Memo finden

Thema durchsuchen

Ansicht

Themen-Optionen

Text in Memo finden

Ein Thema von Tommy1988 · begonnen am 9. Mai 2007 · letzter Beitrag vom 11. Mai 2007

Vorheriger Beitrag

Nächster Beitrag

joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
672 Beiträge

Delphi 10.4 Sydney

#13

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:

markieren

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;