procedure ProcedureWithoutAnyInterestingName: boolean;
label
EXIT;
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.Clear;
if odEBL.Execute then
begin
try
sl.LoadFromFile( );
except
goto EXIT;
end;
end;
EXIT:
sl.Free;
end;
czy zastosowanie goto w taki sposób jest bardzo złe?
chodzi o to, że wszedzie gdzie czyt się o GoTo widać tylko wielkie czerwone NIE RÓB TEGO. ale Chyba jak nie skacze z jednej funkcji do drugiej tylko jest to taki prosty skok to chyba nie ma problemu? jak to jest?