Einzelnen Beitrag anzeigen

cb01

Registriert seit: 4. Okt 2006
17 Beiträge
 
Turbo Delphi für Win32
 
#1

Textdatei will nicht so wie ich will

  Alt 12. Okt 2006, 20:20
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
  Mit Zitat antworten Zitat