Hallo zusammen,
ich lese schon seid einigen Monaten hier mit, doch jetzt hab ich nen Problem und stehe im Wald...
Ich möchte an die Stelle im unterem Source Code "Hilfe benötigt"
einen bestimmten Inhalt in die Textdatei schreiben, der Inhalt vor und nach der Position (linecounter)muß erhalten bleiben...
die Position an der geschrieben werden soll "linecounter" sein.
Wenn ich Rewrite / Write benutze wird der gesamte Inhalt des Files gelöscht und das will ich nicht.
Beispiel des Textfiles:
#############################################
12345
x xyz
--------> hier soll z.B. 12346
--------> x xyz eingetragen werden
12347
x xyz
#############################################
Code:
...
var
ZIFF_0,ZIFF_1, POS_1, POS_2, linecounter: integer;
pfad,Jahreszahl,tempstr,CurrentLine, SearchLine, filenameold, filenamenew : string;
myFile: Textfile;
...
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; //wird für später benötigt
ZIFF_1:= StrToInt(Currentline);
if ZIFF_0 < ZIFF_1 then
begin
POS_2:=linecounter; //geht auch mit FilePos, ich weis :)
showmessage ('Insert '+IntToStr(ZIFF_0)+ ' here on Position Line ' + IntToStr(POS_2) + '.' ); //Debug, Stelle in Datei und Wert passt 1a
//ReWrite(myFile);
//Write (myFile,'Write Test here'); //hier wird die HILFE benötigt !!!!
CloseFile(myfile);
CopyFile(filenameold,filenamenew);
exit;
end
....