ersetzt try..except begin..end?

[alzaimar]

Zitat von messie:

Wenn ich nach except auf die Exception-Klasse Zugriff haben will, bekomme ich den nur mit

Delphi-Quellcode:

try
   //..
except
  on e:meineException do
  begin
  //..
  end;
end;

Also nicht ganz eindeutig.

Doch, denn der beginn...end Block bezieht sich auf as 'on e:...'.
Du kannst ja auch schreiben

Delphi-Quellcode:

...
except
  on e:EEineException do begin
   TuWasMitderEinenException
   ...
  end;
  on e:EAndereException do begin
   TuWasMitderAndereException
   ...
  end;
end;

[Tormentor32]

Zitat von Sidorion:

while..end

bei mir sieht das so aus:

Delphi-Quellcode:

while (...) begin
end;

[alzaimar]

Zitat von Tormentor32:

Zitat von Sidorion:

while..end

bei mir sieht das so aus:

Delphi-Quellcode:

while (...) begin
end;

Und bei mir

Delphi-Quellcode:

while (...) do begin 
end'

Ich glaube ja, Sidorion meint das gleiche wie du.

[RavenIV]

Zitat von Sidorion:

Ich persönlich halte es aber für sinnvoller, try..except nach einem If trotzdem in einem Begin..End zu kapseln, da sich dadurch die Lesbarkeit erhöht.

Ob sinnvoll oder nicht, steht nicht zur Debatte.
Laut Styleguide gehört nach einem if immer ein begin/end.
Da ist es egal, ob ein try..except-Block oder ne Anweisung oder ein anderer Anweisungsblock kommt.

Ich vermute mal, die meisten hier haben noch nie in einer grösseren Firma gearbeitet, wo mehrere Leute gleichzeitig am selben Projekt arbeiten.
Da MUSS man nach Styleguide arbeiten, weil nicht erst jeder den Code nach seinen Belieben umformatieren kann.
Wenn ich alleine in meinem Kämmerlein an einem Projekt arbeite, dann kann ich mir schon einen eigenen exotische n Stil überlegen, sodass keiner mehr mit dem Code klarkommt.

[Tormentor32]

Da war ich wieder mal zu schnell und hab nicht genug nachgedacht

Was du geschrieben hast meinte ich... Es ging mir darum, dass bei while halt doch begin end benötigt wird.

[Sidorion]

Ich meinte While..do . Allerdings fällt mir grad auf, dass while nicht in die Aufzählung von mir passt (genau wie for und if), da dieses eine Einzelanweisung ist, die lediglich die folgende mehrfach wiederholt.

p.s.: Sorry ich wollte keinen Kleinkrieg über Styles lostreten. Asche auf mein Haupt.

[Tormentor32]

Zitat von Sidorion:

Ich meinte While..do . Allerdings fällt mir grad auf, dass while nicht in die Aufzählung von mir passt (genau wie for und if), da dieses eine Einzelanweisung ist, die lediglich die folgende mehrfach wiederholt.

Und da drauf wollte ich mit meinem Post hinweisen, aber ich habs gründlich vergeigt.

Edit: Buchstabendreher

[Muetze1]

Zitat von messie:

Wenn ich nach except auf die Exception-Klasse Zugriff haben will, bekomme ich den nur mit

Delphi-Quellcode:

try
   //..
except
  on e:meineException do
  begin
  //..
  end;
end;

Ergänzung: nicht nur! Innerhalb des Except / End Blockes ist die globale Variable ExceptObject gültig und diese enthält die aktuelle Exception.

Delphi-Quellcode:

try
  // ...
except
  if ExceptObject is meinException then
    ShowMessage(meinException(ExceptObject).DeineMessage)
  else if ExceptObject is andereException then
    ShowMessage(andereException(ExceptObject).AndereMessage)
  else
    ShowMessage(Exception(ExceptObject).ClassName + ' ' + Exception(ExceptObject).Message);
end;

[negaH]

Delphi-Quellcode:

if x then
begin
  try
  except
  end;
end;

Kannst du das äußere begin end gleich nach der IF Abfrage weg lassen ohne das sich was an der Funktionalität verändert ?

Ja, also ist es sinnvoll es auch wegzulassen da es ein redundanter Source ist. Jeden überflüssige Zeile im Source sollte nach Möglichkeit auch eliminiert werden da sich so zwangsläufig die Lesbarkeit und damit Verständlichkeit des Sources erhöht.

Delphi-Quellcode:

if x then
begin
  try
  except
  end;
end else
begin
  try
  except
  end;
end;

// würde so aussehen

if x then
try
except
end else
try
except 
end;

Bei

Delphi-Quellcode:

if x then
begin
  try
  finally
  end;
end;

ist es schon wieder eine andere Pronlematik. zb. wenn

Delphi-Quellcode:

if x then
begin
  Object := TObject.Create;
  try
  finally
    Object.Free;
  end;
end;

// falsch wäre hier

if x then
try
  Object := TObject.Create;
finally
  Object.Free;
end;

// oder unellegant wäre

Object := nil;
if X then
try
  Object := TObject.Create;
finally
  Object.Free;
end;

Der letzere Falle ist deshalb eine Krücke da wir ja auch verschachtelte IF Abfragen haben könnten. Es verführt dann dazu gleich am Begin einer Funktion alle diese Objecte erstmal auf nil zu setzen. Je nach Path werden aber bestimmte Variablen dann garnicht benötigt und das fürht dazu das der Compiler schlechter den besten Code erzeugen kann, eben weil wir die Variablen schon in Advance benutzt haben.

In diesem Falle wäre also ein begin end mit enthaltenem try finally Block sauberer.

Gruß Hagen

[messie]

Zitat von negaH:

Delphi-Quellcode:

// falsch wäre hier
if x then
try
  Object := TObject.Create;
finally
  Object.Free;
end;

Warum wäre das falsch? Es ist nicht dieselbe Funktion aber warum nicht?

Grüße, Messie