Hi,
ich versuche gerade mit Delphi eine Textdatei zu erstellen und da etwas rein schreiben zu lassen. Das klappt soweit auch schon problemlos, nur leider habe ich jetzt zwei Probleme
-Wie schaffe ich es, das mein Programm die neuen Zeilen oben anfügt?...Ich habe da beim googlen etc. etwas mit Insert gefunden, aber irgendwie funktioniert das nicht.
-Wie kann ich das Datum als Dateinamen verwenden?
Hier mein Code:
Delphi-Quellcode:
var Datei: TextFile;
procedure TForm4.Button1Click(Sender: TObject);
begin
AssignFile(Datei,'c:/protokoll.txt');
Append(Datei);
if IOResult = 0 then
begin
writeln(Datei,'Hallo!');
writeln(Datei,'Die Datei ist jetzt neu.');
writeln(Datei,'Sie kann nun verändert werden.');
CloseFile(Datei);
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
AssignFile(Datei,'c:/protokoll.txt');
Append(Datei);
if IOResult = 0 then
begin
writeln(Datei,''+datetostr(date)+'-'+timetostr(time)+'--Hallo!');
CloseFile(Datei);
end;
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.LoadFromFile('c:/protokoll.txt');
end;
end.
Ich würde mich sehr freuen, wenn jemand einen Tipp für mich hätte.
Gruß
Chris