E/AFehler 433. bei Append TextFile

[egentur]

Hallo zusammen

Ich schreibe Daten in ein TextFile wie folgt:

Procedure xy(hlog : string);
var EFile:TextFile;
begin
{$I-}
SCAN: AssignFile(EFile,'xy.bin');
Reset (EFile);
{$I+}
if IOResult=2 then begin
Rewrite (EFile);
end;
Append(EFile);
Writeln (EFile,hLog);
Flush(EFile);
CloseFile(EFile);
end;

Das funktioniert auch soweit einwandfrei !

Nur auf einem bestimmten Rechner bringt mir EurekaLog sporadisch einen

E/A Fehler 433.

an der Stelle Append(EFile)

ich kann aber nirgends eine Fehlerbeschreibung zu 433. finden

Danke für eure Hilfe

[KodeZwerg]

Per GetLastError und SysErrorMessage solltest Du in der Lage sein herauszufinden was das bedeutet.

[KodeZwerg]

Microsoft listet diesen leider nicht.

[DeddyH]

Musste es nicht entweder Rewrite ODER Append sein? Lange her, dass ich mit den alten Pascal-Befehlen hantiert habe.

[KodeZwerg]

Zitat:

Zitat von DeddyH (Beitrag 1515720)

Musste es nicht entweder Rewrite ODER Append sein? Lange her, dass ich mit den alten Pascal-Befehlen hantiert habe.

Absolut korrekt! Embarcadero zeigt es auch im Beispiel so, also ohne ReWrite.

[Delphi.Narium]

Delphi-Quellcode:

procedure xy(hlog : string);
var 
  EFile : TextFile;
begin
{$I-}
  AssignFile(EFile,'xy.bin');
  Reset(EFile);
{$I+}
  if IOResult = 0 then begin
    Append(EFile);
  end else begin
    Rewrite(EFile);
  end;
  Writeln(EFile,hLog);
  Flush(EFile);
  CloseFile(EFile);
end;

[egentur]

Dann ist es so

wenn das File nicht existiert

darf rewrite und append nicht direkt aufeinander folgen ?

[DeddyH]

IIRC dürfen beide Befehle nur auf geschlossene Dateien angewendet werden. Da Rewrite sie aber öffnet, schlägt ein anschließendes Append dann fehl.

[himitsu]

Warum muß man immer mit diesem alten Schrott arbeiten?

TFile.AppendAllText
TFile.AppendText

Zitat:

Mit AppendAllText können Sie einen Text an eine Datei anhängen. Wenn die mit dem Parameter Path angegebene Datei bereits vorhanden ist, wird der Text angehängt. Andernfalls wird die Datei erstellt und der Text eingefügt.

[DeddyH]

Unter Delphi 6 funktioniert das aber nicht.