Fehler beim überschreiben von Datei

[Luckie]

Ach so. OK. Denn so Fehlermeldungen hart zu codieren ist genauso schlecht.

[EWeiss]

Zitat von Luckie:

Ach so. OK. Denn so Fehlermeldungen hart zu codieren ist genauso schlecht.

Deiner Meinung
Habe dazu gelernt.

gruss

[Klaus01]

Delphi-Quellcode:

var 
  F: file of Byte;
  errorCode : Integer;

begin
 Assign(F, ParamStr(1));
 {$I-}
 Reset(F);
 {$I+}
 errorCode := IOResult;
 if errorCode = 0 then
   Writeln('Dateigröße in Byte ', FileSize(F))
 else
   Writeln('Fehler aufgetreteten (' +IntToStr(errorCode)+')');
end.

.. und irgendwo gab es auch noch eine Routine um den ErrorCode (Integer) in einen Text zu wandeln.

Grüße
Klaus

[Luckie]

Wenn IOResult die Systemerrorcodes verwendet, dann sollte es mit SyserrorMessage gehen.

[rollstuhlfahrer]

ich kenne jetzt die codes nicht, aber die stehen im emba-wiki unter http://docs.embarcadero.com/products..._IOResult.html

bernhard

ps: das system hat mit die shift-taste genommen