Zitat von
glkgereon:
ist es logischer eine exceptions zu werfen, die zu 100% abgefangen wird?
aber es ist eine überlegung wert....
Exception.Create('bla'), oder?
Wieso zu 100%? Ich denke nur dann, wenn ein Fehler auftritt, oder? ... und das sollte ja eher die "Ausnahme" sein (dann im wahrsten Sinne des Wortes).
Delphi-Quellcode:
procedure Output(Error: Boolean; Value:
String);
begin
if Error
then
raise Exception.Create(Value+'
Fehler');
WriteLn(Value+'
OK');
end;
begin
try
OutPut(Init,'
Init...');
OutPut(FileInit,'
FileInit...');
OutPut(Analyse,'
Analyse...');
OutPut(FileUnInit,'
FileUnInit...');
OutPut(UnInit,'
UnInit...');
except
on E:
Exception do
WriteLn(E.
Message);
end;
end.