ÜBERARBEITET und daher komplett anderer Zusammenhang, aber ich lasse hier alles stehen, um die Quotes stimmig zu halten.
Ich bitte Euch, wegen dem Code den Beitrag 10 unten anzuschauen
Überarbeitet - weiter unten hier im Thread:
Bitte Hier klicken !
http://www.delphipraxis.net/184074-try-except-functions-wie-tief.html#post1291202
[Spoiler]Hi,
ich hab jetzt herumgewurschtelt, aber so richtig sicher bin ich mir nicht:
Wie tief kann man functions mit Try verschachteln?
Ich würde gerne eine "erste" Function aufrufen, die eine zweite aufruft, in der eine systemkritische Operation durchgeführt wird.
Allerdings soll bis zur Button-Procedure die Rückmeldung über Erfolg/Fail zurückgeleitet werden.
Quasi irgendwo ein Result aus der zuvor abgearbeiteten Funktion.
Gesehen hab ich das schon mal. Aber ich kann es gerade nicht implementieren.
Momentan poppt aber lediglich die Fehlermeldung in Funktion zwei [also hier im Code ganz oben] auf,
danach die ExceptShowmessage in Function zwei
und das Programm bricht ab. Mehr passiert nicht.
Delphi-Quellcode:
implementation
{$R *.DFM}
function DieZweiteFUNC(A_egal: string): boolean;
var zweite: Integer;
begin
Form1.Top := 0;
try
begin
zweite := 8 div Form1.Top; // irgendein Wert durch -> NULL 0, damit es abbricht
ShowMessage(inttostr(zweite));
end
except
ShowMessage('zweite KLAPPT NIX');
end;
end;
function checkit(Bla: string; Blubb: string): boolean;
var erste: integer;
begin
try
begin
DieZweiteFUNC('rufe zweite');
end
except
ShowMessage('JA NÖÖÖÖÖÖÖ erste nich');
end;
end; // END FUNCTION
procedure TForm1.Button1Click(Sender: TObject);
var SOURCE: integer;
begin
try
begin
checkit('A', 'C');
end
except
ShowMessage('JA NÖÖÖÖÖÖÖ Hat nicht funktioniert.');
end;
end; // END FUNC
end.
Danke.[/Spoiler]