Entwickler-Ecke

Sonstiges (Delphi) - String suchen und Rest der Zeile auslesen ?


Blackheart - Sa 26.02.05 15:19
Titel: String suchen und Rest der Zeile auslesen ?
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 ?


Delete - Sa 26.02.05 15:29

durchsuch doch einfach alle Zeilen


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


Blackheart - Sa 26.02.05 16:15

Ja das ist Klar


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 user profile iconraziel: Delphi-Tags hinzugefügt.


Delete - Sa 26.02.05 16:41

benutze den copy befehl:

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