Textdatei will nicht so wie ich will

[cb01]

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

[mkinzler]

Zitat:

-Wie kann ich das Datum als Dateinamen verwenden?

AssignFile(Datei,DateToStr( Date())+'.txt');

Zitat:

-Wie schaffe ich es, das mein Programm die neuen Zeilen oben anfügt?

Direkt garnicht, da eine Textdatei sequentiell geschrieben wird. Du kannst aber den Text in eine StringListe schreiben, (dort gibt es .Insert) und dann mit .SaveToFile in die Datei schreiben lassen.

[Christian Seehase]

Moin Chris,

für die Verwendung des Datums im Dateinamen kannst Du Dir auch mal FormatDateTime anschauen.
Dann kannst Du das Datum auch so formatieren, dass die Sortierung aufsteigend ist (z.B. FormatDatetime('yyyymmdd',now)).

@mkinzler:
Bei DateToStr könnte man das Problem bekommen, dass das Datumsformat / als Trennzeichen enthält.

[mkinzler]

Zitat:

@mkinzler:
Bei DateToStr könnte man das Problem bekommen, dass das Datumsformat / als Trennzeichen enthält.

Stimmt, habe dich bedacht, daß eine andere Datumseinstellung ( Trnnzeichen nicht .)vorhanden sein könnte.

[cb01]

Moin,

schonmal Danke für die schnellen Antworten, aber leider klappt das noch nicht so ganz

AssignFile(Datei,'c:/(Datei,DateToStr( Date())+'.txt'); So sieht der Code aus, aber da kriege ich dann immer folgende Fehler:

SQL-Code:

[Pascal Fehler] Unit4.pas(34): E2018 Record, Objekt oder Klassentyp erforderlich
[Pascal Fehler] Unit4.pas(35): E2066 Operator oder Semikolon fehlt
[Pascal Fataler Fehler] Textdatei.dpr(5): F2063 Verwendete Unit 'Unit4.pas' kann nicht compiliert werden

Gruß

Chris

[mkinzler]

Zitat:

AssignFile(Datei,'c:/(Datei,DateToStr( Date())+'.txt');

So hat die Zeile bei mir auch nicht ausgesehen.
Außerdem funktioniert das auch nur, wenn kein Slash als Trenner konfiguriert ist.( siehe auch Beitrag #3 von Chris.)

[inherited]

Zitat von cb01:

AssignFile(Datei,'c:/(Datei,DateToStr( Date())+'.txt');

AssignFile(Datei,'c:/'+DateToStr( Date())+'.txt');

[cb01]

Hi,

danke für die Hilfe, jetzt klappt es ohne Probleme...!
Gruß

Chris