Schreiben einer Zeile in ein Textfile - need help, THX

[onkelfabi]

Bisher läuft alles ganz gut, das ganze hat noch nen Riesenvorteil, da ich am Ende meine .old Datei aus der ich gelesen habe wieder umkopiert habe nach .txt erspare ich mir das nun durch die Stringliste, da ich die .old Datei wie bisher durchsuche, dann die Stringlist zum Einsatz kommt und diese das Ergebnis nach .txt wegschriebt.

Danke für die schnelle und Kompetente Hilfe!

Sieht jetzt so aus und geht bisher gut

Code:

....
      AssignFile(myfile, (Combobox1.Text+'.old'));  //File auswählen
      reset (myfile);                               //File öffnen

      SearchLine := IntToSTr(ZIFF_0);               //zu suchende Zeile=erzeugter Dateiname

      sl:=tstringlist.create;                       //Stringliste erzeugen
      sl.LoadfromFile(filenameold);                 //Inhalt vom .OLD File laden

       while not eof(myfile) do                     //solange bis das Dateiende erreicht ist
        begin
            ReadLn(myFile, CurrentLine);            //Datei zeilenweise durchsuchen und Ergebnis der Zeile nach CurrentLine
            linecounter:=linecounter+1;             //Zeile ++
            if IsValidInteger(CurrentLine) then     //gültige Integerzahl gefunden ??
              begin
                 POS_1:= linecounter;
                 ZIFF_1:= StrToInt(Currentline);
                 if ZIFF_0 < ZIFF_1 then
                 begin
                    POS_2:=linecounter;
                    sl.insert ((POS_2-1), IntToStr(ZIFF_0)); //Einfügen an Stelle (POS_2-1) den Wert aus ZIFF_0 später noch weitewre Werte
                    sl.SaveToFile(filenamenew);              //Abspeichern unter xy.TXT  
                    CloseFile(myfile);                      // File schließen
                    sl.free;                                // Stringlist wieder freigeben
                    exit;
                 end
....