Schreiben einer Zeile in ein Textfile - need help, THX

[Luciano]

Hi...

ich bin gerade kurz angebunden aber schau doch mal in der Hilfe nach, da gibt es glaube ich auch ein INSERT oder so etwas für Texdateien.

Gruß
Mike

//Edit... das war mit einer StringList... gerade mal einen Teil heraus kopiert...

Delphi-Quellcode:

    SLWriteSn.LoadFromFile(GetCurrentDir + PathDelim + cfg);
    s := SLWriteSn.Text;
    ipos := Pos('Contact', s);
    i2 := PosEx(#13#10, s, ipos);
    i2 := i2+1;
    if i2 > i then
      begin
        //ShowMessage(IntToStr(i2));
        s2 := copy(s,0, i2);
        //ShowMessage(s2);
        Insert('PUTSERIAL '+StartingHexAdress + ' ' +NewSn+ #13#10, s2, i2);
        i2 := PosEx(#13#10, s, i2);
        Insert('PUTSERIAL '+PSKeyHexAdress+ ' '+Label6.Caption+#13#10, s2, i2 );
        i2 := PosEx(#13#10, s, i2);
        Insert('PUTSERIAL '+MACHexAdress+ ' '+Label8.Caption+#13#10, s2, i2 );
        //ShowMessage(s2);
        SLWriteSn.Text := s2;
        SLWriteSn.SaveToFile(GetCurrentDir + PathDelim + cfg);