Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
Delphi XE5 Professional
|
AW: Verständnisfrage zu Exit
9. Okt 2020, 17:45
Hallo,
auch ich benutze Exit bei numerischen Berechnungen recht oft, häufig in folgender beispielhafter Weise:
Delphi-Quellcode:
Function Komplizierte_Berechnung(CONST a, b, c: Extended;
CONST X_Vektor, Y_Vektor, Z_Vektor: TExtended_Array;
VAR A_Matrix: TExtended_Matrix;
VAR f, g, h: Extended): Integer;
VAR
Diverse dynamische Strukturen;
Begin
Dynamische Strukturen initialisieren;
. . .
Try
IF NOT Check_1(...) Then
Begin
Exit(ErrorCode_1);
End;
IF NOT Check_2(...) Then
Begin
Exit(ErrorCode_2);
End;
. . .
IF Bedingung_1 Then
Begin
Berechnungen_1;
Exit(ErrorCode_3);
End;
IF Bedingung_2 Then
Begin
Berechnungen_2;
Exit(ErrorCode_4);
End;
. . .
Finally
Rückgabeparameter schreiben;
Dynamische Strukturen freigeben;
End;
End;
Ich habe damit gute Erfahrungen gemacht.
Gruß, Andreas
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
|