title image


Smiley Re: try-Blöcke NUR initialisieren, wenn ein Boolean gesetzt ist..
Das Eigentliche in eine Prozedur/Funktion auslagern und je nach True oder False

in "Try Except" aufrufen:



procedure TForm1.Button9Click(Sender: TObject);

var

x, y: integer;

b: boolean;

function main: double;

begin

result := x / y;

end;

begin

b := true; // bei False kommt die Fehlermeldung

x := 100;

y := 0;

if b then

try

main;

except

end

else main;

end;





Gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: