E/A Fehler abfangen?

[Pseudemys Nelsoni]

hoi,

im board habe ich nichts zu einem ea fehler gefunden, kann mir jemand sagen wie ich den fehler abfange?

on E/A-Fehler 32 do...

geht ja natürlich nicht

[Sharky]

Hai Pseudemys,

schau dir mal die Hilfe zu TRY-EXCEPT an.

[Pseudemys Nelsoni]

hoi Sharky,

das problem ist, das ich nicht weiss von welchem Typ der fehler "E/A-Fehler 32" ist :\

[scp]

Delphi-Quellcode:

var
  IORes : integer;

{$I-}
//Hier Dateioperationen
{$I+}
IORes := IOResult;
Case IORes Of
  32: begin
        //Hier E/A-Fehler 32 behandeln
      end;
  else ShowMessage('E/A-Fehler ' + IntToStr(IORes));
end;

[Sharky]

Ich tippe mal auf einen EInOutError.

[sakura]

Hi Scrapt,

das kannst Du recht einfach rausbekommen...

Delphi-Quellcode:

try
  // hier richtig mist bauen
except
  on E: Exception do
    // jetzt weißt Du auch wie die spezielle Klasse heißt ;-)
    ShowMessage(E.Classname);
end;

...:cat:...

[Pseudemys Nelsoni]

Scrapt?


danke an alle, =) also EInOutError wars.

@scp: ist sicher ne gute lösung aber für mich (noch) zu kompliziert, zb das {I+} usw :\

habe mal sharkys möglichkeit benutzt, der code von sakura hats mir bestätigt :)

[scp]

Zitat:

Zitat von Pseudemys Nelsoni

@scp: ist sicher ne gute lösung aber für mich (noch) zu kompliziert, zb das {I+} usw :\

habe mal sharkys möglichkeit benutzt, der code von sakura hats mir bestätigt :)

Ist auch die bessere Alternative. :-)

[Luckie]

Zitat:

Zitat von scp

Ist auch die bessere Alternative. :-)

Ich würde fast sagen unnötiger try-execept-Block. Ich hätte es so gemacht:

Delphi-Quellcode:

{I-}
  ...;
{I+}
if IOResult <> 0 then
  RaiseLastOSError();

Dann weiß man auch, was schiefgegangen ist.

[scp]

Hast ja auch wieder recht. Dachte nur es wäre VCL/OP-konformer :lol: