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
....