[d7] try..except..end

Stworzyłem sobie funkcję, która sprawdza czy można przekonwertować zmienną typ String na Integer.

try
StrToInt(S);
except
ShowMessage('Błąd!');
exit;
end;

Podczas uruchomienia projektu z Delphi, gdy podam nieodpowiedni string i próbuję sprawdzić w/w funkcjią to pojawia się błąd kompilatora, natomiast gdy uruchomię program normalnie to pokazuje się komunikat.
Co zrobić aby zamiast błędu kompilatora pokazywał się ten komunikat.

Z góry dziękuje za pomoc...

Wyłączyć w opcjach Delphi - "Stop on Delphi exceptions" chyba.

Dzięki bardzo działa (Tools->Debbuger Options) :)

po co ten exit w except???

Misiekd napisał(a)

po co ten exit w except???

no pewnie po to żeby nie wykonywało dalszej części procedury ... jest to chyba w każdym kursie, o co chodzi ?

BTW w Delphi 7 nie musisz dawać StrToInt w Try tylko możesz się posłużyć funkcją TryStrToInt

Adamo napisał(a)

no pewnie po to żeby nie wykonywało dalszej części procedury ... jest to chyba w każdym kursie, o co chodzi ?

No niby tak, tylko że to miała być funkcja więc nie widzę co by tam jeszcze miało być po end (od except)

BTW w Delphi 7 nie musisz dawać StrToInt w Try tylko możesz się posłużyć funkcją TryStrToInt

która wygląda tak

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;