|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.644 Beiträge
Delphi 12 Athens
|
Re: try...except - Manuell in except springen
19. Aug 2008, 15:42
Delphi-Quellcode:
procedure ShowError;
begin
ShowMessage('Vorgang nicht erfolgreich');
end;
...
try
if Form1.Label1.Caption <> 'Administrator' then
begin
ShowError;
exit; //oder alternativ in einem else-Zweig weitermachen
end;
except
ShowError;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|