String suchen und Rest der Zeile auslesen ?

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

Hallo Leute

Ich möchte gern nach einem gefundenen String in einem RichEdit den Rest der Zeile in einen String einlesen etwas zufügen und den String dann an die gleiche Stelle zurückschreiben.

Bsp. Erste Zeile
Zweite Zeile // Alter String
Dritte Zeile
Vierte Zeile // Alter String bla

Erste Zeile
Zweite Zeile // (Das ist) Alter String (OK !)
Dritte Zeile
Vierte Zeile // (Das ist) Alter String bla (OK !)

Also Der Such String wäre //
Alter String wäre Alter String
und der Rest vor und dahinter wäre angefügt

Den String // zu finden ist nicht das Problem nur weiß ich ja voher nicht in welchen Zeilen er sich befindet.
Wie kann ich das am besten angehen ?

Ehemaliges Mitglied Erhaltene Danke: 1

durchsuch doch einfach alle Zeilen

markieren

Delphi-Quelltext

1:
2:
3:

for n := 0 To richedit1.lines.count-1 do
  if pos('//',richedit1.lines[n]) > 0
  then // ....

Blackheart · Beiträge: 164 ME D3Prof.-D6Standard

Ja das ist Klar

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
Suche:String;
begin
Suche:='//';
for i:=0 to RichEdit1.lines.count-1 do
 if pos(Suche,RichEdit1.lines[i])>0 then RichEdit1.Lines.Add(Suche+'Alter Sting');

 end;
end.

Dann hab ich den Alten String gefunden aber jetzt müsste ich den String nach // auslesen bis zum Zeilenende. zwischenspeichern und hinter Suche+'Alter Sting' einfügen und das ist mein Problem !

Moderiert von raziel: Delphi-Tags hinzugefügt.

Ehemaliges Mitglied Erhaltene Danke: 1

benutze den copy befehl:

markieren

Delphi-Quelltext

1:	stringvar := Copy(stringvar, 1 {Anfangspos}, 10 {Länge});

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme