Das hier sollte funktionieren.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
LogFile: TextFile;
sVariable : string;
begin
sVariable := 'Test';
AssignFile(LogFile, 'Test.txt');
if FileExists('Test.txt') then
Append(LogFile)
else
Rewrite(LogFile); // create the file if necessary
try
WriteLn(LogFile, sVariable);
finally
CloseFile(LogFile);
end;
end;
DenWert der Variable sVariable habe ich au 'Test' festgelegt. Den kannst du natürlich im Programm ändern, dann wird auch der veränderte Wert übernommen und in die Text-Datei geschrieben.
So, jetzt fehlt nur noch die laufende Nummer und das Datum. Das sollte aber auch zu schaffen sein. Allerdings muss man für die Nummer die Anzahl der Zeilen ermitteln oder (was noch besser ist) die alte Nummer auslesen und erhöhen.