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:

[Luckie]

An sich ist es das ja auch. Aber man muss abwägen. Ich denke, ich muss dir nicht sagen, was ein try-except-Block für den Compiler, den resultierenden Sourcecode und nachher für die CPU bedeutet, die den Code ausführt.

Als erstes muss der Compiler sehr viel zusätzlichen Code erzeugen, dieser muss dann auch von der CPU abgearbeitet werden. Und wenn dann auch noch die Exception auftritt, stelle ich es mir immer so vor, als ob die CPU am schimpfen ist, wie ein Rohrspatz, weil sie letztendlich den ganzen Stack absuchen muss, nach dem Punkt, wo sie weitermachen kann. Iregendwie so war das. Ich muss das im Richter nochmal nachlesen oder wo das stand.

Jedenfalls, wenn ich auch nicht genau weiß, wie Exception umgesetzt werden, weiß ich, dass sie für die CPU unheimlich viel Arbeit, Taktzyklen usw. bedeuten und das der Compiler ein Haufen zusätzlichen Code generieren muss. Deswegen versuche ich try-except-Konstrukte zu vermeiden und nur da zu nutzen wo es nicht anders geht.

Mir stehen jedes mal die Haare zu Berge, wenn ich so was lese:
"Wie kann ich überprüfen, ob es sich um ein Integer handelt?"
Antwort:

Delphi-Quellcode:

try
  i := IntToStr(Value);
  result := True
except
  result := False;

So und jetzt die Preisfrage an alle: Wie macht man es richtig bzw. eleganter ohne try-except-Block? :zwinker: