Inline Variablen-Deklaration bei try..except

[himitsu]

Ja, ein bissl komisch ist das schon, aber im Prinzip ist das hier nur ein "lokaler" gecasteter Alias für System.ExceptObject (aktuelles Exception-Objekt).

Stell es dir als eine Art Makro vor, welches intern die Variablen anlegt, vergleicht und castet.

Delphi-Quellcode:

begin
  try
    // böses Zeug
  except
    on E: EFileNotFoundException do
      E.Kaputt;
    on E: EProgrammerNotFound do
      E.FaulerSack;
    else
      raise;
  end;
end;

Delphi-Quellcode:

begin
  try
    // böses Zeug
  except
    if ExceptObject is EFileNotFoundException then 
      EFileNotFoundException(ExceptObject).Kaputt
    else if ExceptObject is EProgrammerNotFound then 
      EProgrammerNotFound(ExceptObject).FaulerSack
    else
      raise;
  end;
end;

Delphi-Quellcode:

var
  E: EFileNotFoundException;
  E2: EProgrammerNotFound;
begin
  try
    // böses Zeug
  except
    if ExceptObject is EFileNotFoundException then begin
      E := EFileNotFoundException(ExceptObject);
      E.Kaputt;
    end else if ExceptObject is EProgrammerNotFound then begin
      E2 := EProgrammerNotFound(ExceptObject);
      E2.FaulerSack;
    end else
      raise;
  end;
end;

Delphi legt ja auch so öfters mal "unsichtbare" lokale Variablen an,
sei es bei a := b + c * d , wo das Ergebnis von c*d ja quasi in einer Zwischenvariable landet,
oder der Enumerator einer For-In-Schleife und vorallem beim with .