Zitat von
Nils_13:
Wenn du in einer Zeile zwei Mal den Suchbegriff stehen hast, dann haut Pos alleine nicht hin und du brauchst schon eine Rekursion. Das ist unnötig.
Deshalb: Pos + StringReplace.
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count-1 do
if Pos(Suchbegriff, Memo1.Lines[i]) > 0 then
StringReplace(Memo1.Lines[i], Suchbegriff, Ersetzbegriff, [rfReplaceAll]);
Mist zu spät....
Wenn der Link nicht bekannt ist, dann holt man ihn sich doch eh, dann funktioniert es wieder.
Hallo zusammen,
ich glaube Nils-Idee ist bis jetzt am besten
auf jeden Fall hier ist meine moemische Idee aber funktioniert
Ich gleube, ich habe eine idee
ich habe den Text in Memo so verzerrt und vereinfacht und nun habe ich den Link in Falle
http://members.lycos.co.uk/forforums...-ersetzen3.jpg
jetzt kann ich so versuchen
Delphi-Quellcode:
memo1.LoadFromFile('link.txt');// der Link wird von link.txt in memo1 gespeichert
Memo2.Lines[10]:=memo1.lines;
das Problem ist damit gelöst, möchte ich aber den Code kurzer machen ohne Umweg
ich habe b´versucht so :
Delphi-Quellcode:
Memo2.Lines[10]:=loadfromfile('link.txt'); //geht leider nicht, error
Memo2.line10.add(loadfromfile('link.txt')); // geht auch nicht
was ist Falsch?
Ich werde aber gerne Nils-Idee nehmen
Delphi-Quellcode:
_____ ___ __ _ _ _ _____
| _ \ / | | \ | | | | / / | ____|
| | | | / /| | | \| | | |/ / | |__
| | | | / / | | | |\ | | |\ \ | __|
| |_| | / / | | | | \ | | | \ \ | |___
|_____/ /_/ |_| |_| \_| |_| \_\ |_____|