So, ich habe den Quelltext noch etwas erweitert. Jetzt wird das Datum, die Systemzeit und der Inhalt der Variable protokolliert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
LogFile: TextFile;
sVariable : string;
sDate : string;
sTime : string;
begin
sDate := DateToStr(Now);
sTime := TimeToStr(Now);
sVariable := 'Test';
AssignFile(LogFile, 'Test.txt');
if FileExists('Test.txt') then
Append(LogFile)
else
Rewrite(LogFile); // create the file if necessary
try
WriteLn(LogFile, sDate + ' ' + sTime + ' ' + sVariable);
finally
CloseFile(LogFile);
end;
end;
Das sieht dann so aus:
Code:
15.09.2003 15:44:15 Test
15.09.2003 15:44:16 Test
15.09.2003 15:44:17 Test
15.09.2003 15:45:52 Test
15.09.2003 15:45:53 Test
15.09.2003 15:45:55 Test