Bubblen Exceptions nach oben durch einen try-finally-Block?

[DGL-luke]

Hallo, folgende Struktur:

Delphi-Quellcode:

try
  with TSomeClass.Create do
    try
      SomeMethod;
      SomeMethodThatThrows; //wirft Exception!
    finally
      Free;
    end;
except
  on E:Exception do
    ShowmEssage(E.Message);
end;

Ich will eine Fehler bei der Erstellung der Klasse abfangen - innerhalb des try...finally-blocks interessieren mich keine Exceptions.

Klappt das oder kommt die Exception, die ich oben markiert hab, aus dem try...finally-block irgendwie raus?

[3_of_8]

Delphi-Quellcode:

with TSomeClass.Create do
try
  SomeMethod;
  SomeMethodThatThrows; //wirft Exception!
except
  on E:Exception do
    ShowmEssage(E.Message);
end;
Free;

So würd ich das machen.

[mkinzler]

Es dürfte kein Exception außerhalb des Blocks entstehen.

[DGL-luke]

Negatori.

Ich will es abfangen, wenn die Klasse beim Erzeugen wirft. Im Konkreten geht es um einen Filestream.

@mkinzler: Ja, glaube das reicht mir.

[3_of_8]

Das hättest du auch dazusagen können.

[DGL-luke]

Hab ich.

Zitat von DGL-luke:

Ich will eine Fehler bei der Erstellung der Klasse abfangen

Und es ist mir egal, ob du sagst "du hast ja editiert". Ich hab da nur einen Buchstaben im titel geändert. (Kann das einer der Mods vielleicht bestätigen? ka, ob ihr da n versioning habt... )

[PaulJr]

Hallo DGL-luke,

man könnte dies z.B. so machen:

Delphi-Quellcode:

var
  SomeClas : TSomeClas;
Begin

try
  SomeClas := TSomeClas.Create;
 If SomeClas <> NIL then 
 with SomeClas do 
    try 
      SomeMethod; 
      SomeMethodThatThrows; //wirft Exception! 
    finally 
      Free; 
    end; 
except 
  on E:Exception do 
    ShowmEssage(E.Message); 
end;

end;

Gruß

PaulJr.

[jbg]

Zitat von PaulJr:

SomeClas := TSomeClas.Create;
If SomeClas <> NIL then

Und in welchem Fall würde TSomeClas NIL zurückliefern? - In keinem. Somit ist die if-Anweisung sinnlos.

[3_of_8]

Ich vermute mal, wenn der Konstruktor eine Exception wirft, bleibt der Pointer so, wie er vorher war. Das heißt, wenn man ihn vorher mit nil initialisiert, würde es gehen.

[Luckie]

Das funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  try
  fs := TFileStream.Create('c:\test.txt', fmCreate);
  try

  finally
    FreeAndNil(fs);
  end;
  except
   on E: Exception do
     ShowMessage('foobar');
   end;
end;

Ich habe keine Schreibrechte auf c:\ und als Nachricht wird foobar aisgegeben.