Chodzi mi o to że mam inputboxa i w nim ma być wartość liczbowa , jak ktoś wpisze tekst lubb cokolwiek innego to próbuje aż do skutku tyle że z każdym nie udaną próbą wpisu danych pojawia sie application.messagebox(o treśći że wystąpił błąd); i na nowo pojawia sie inputbox z prośba o podanie cyferki.
0
0
var
S : String;
begin
repeat
S := InputBox('Witaj', 'Cze', '');
if (Length(S) 1) or (Ord(S[1]) > Ord('9')) or (Ord(S[1])
0
try
//tutaj instrukcje
except on EConvertError do
MessageBox(..)
if id=yes then
InputBox(..)
end;