FileCreate

[Aleques]

Also es geht schlicht um folgendes:
Ich möchte die Daten meiner Variablen als strings in einer Textdatei speichern, was auch kein problem darstellt. Die textdatei spreche ich zunächst mit AssignFile an und dann mit Append. Jedoch kommt bei Append die Fehlermeldung, dass die Datei nicht da ist. Jetzt wollte ich versuchen mit FileCreate die Textdatei zu erstellen, die programmierhilfe schreibt aber ungültige Typumwandlung.

Also erstmal der Quelltext

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; [b]var[/b] Action: TCloseAction);
var log : TextFile;
    date, time, tstamp: [b]string[/b];
begin
date:= datetostr(now);
time:= timetostr(now);
tstamp:=date+', '+time;

FileCreate(Textfile('log'));
AssignFile (log, 'log.txt');
Append(log);
WriteLn(log, tstamp+': '+Label1.Caption);
CloseFile(log);
end;

So. Bei FileCreate weiß ich jetzt nicht mehr weiter was die Parameter angeht. Ich habe auch schon viele Foren durchsucht und bin auch aus der Delphi- Hilfe nicht schlau geworden. Ich hoffe jemand kann mit helfen.

[fkerber]

Hallo!

Herzlich willkommen in der DP!


Mit Hilfe unserer Delphi-Tags kannst du den Quellcode einfacher Formatieren und es sieht noch schöner aus.
Dazu kannst du deinen Beitrag editieren (Schaltfläche oben rechts) und den Quellcode mit [delphi.] [/delphi.] umschließen (ohne die Punkte). Dazu kannst du auch die Schaltfläche "Delphi-Code" über dem Beitragsfeld nutzen.
Du müsstest dann nur auch die bisherigen Fett-Formatierungen entfernen ;)


Liebe Grüße,
Frederic

[DeddyH]

Ich würde mit FileExists prüfen, ob die Datei existiert. Wenn ja, dann mit Append Inhalte anhängen, ansonsten mit Rewrite Datei neu anlegen.

[himitsu]

FileExists und dann davon abhängig entweder Datei öffnen oder erstellen

es ginge aber auch {$I-} + IOResult ... wenn Append nicht wirkt, dann Rewrite

[DeddyH]

{$I-} bzw. einen try-except-Block würde ich ohnehin benutzen, da ja auch noch andere Dinge schiefgehen können (fehlende Rechte etc.)

[Aleques]

Zitat:

Zitat von DeddyH

Ich würde mit FileExists prüfen, ob die Datei existiert. Wenn ja, dann mit Append Inhalte anhängen, ansonsten mit Rewrite Datei neu anlegen.

Danke! Funktioniert jetzt!