Bestimmten Text unter eine bestimmte Zeile einer Textdatei

[Luciano]

Hallo zusammen,

ich hatte so ein ähnliches Problem. Ich hatte es wie folgt gelöst:

Die Zeile aus dem Memo ist je bekannt, bzw. wo es in die Textdatei rein geschrieben werden soll.

Es gibt einmal Pos und PosEx. Ich hatte die die Zeile der Textdatei herausgesucht und dann noch einmal zum nächsten Zeilenumbruch gesucht. Nach diesem Zeilenumbruch hatte ich dann die Zeile eingefügt.

So ähnlich sieht es bei mir aus. Das soll nur den Weg zeigen, wie ich es bei mir gelöst habe. Vor allem ist meine Textdatei nur 10 Zeilen lang ohne viel Inhalt.

Delphi-Quellcode:

SL.LoadFromFile(GetCurrentDir + PathDelim + cfg);
s := SL.Text;
ipos := Pos('Contact', s);
i2 := PosEx(#13#10, s, ipos);
i2 := i2+1;
s2 := copy(s,0, i2);  //Den Text bis zur Position an der eingefügt werden soll in s2 schieben
Insert('PUTSERIAL '+StartingHexAdress + ' ' +NewSn+ #13#10, s2, i2); 
SL.Text := s2;
SL.SaveToFile(GetCurrentDir + PathDelim + cfg);

Gruß
Mike

//Oh... das war ja schon erledigt...?!