Problém s vyjjímkou – Delphi – Fórum – Programujte.com

Ahoj, pokou??m se oblou?it vyjj?mku v p??pad? kdy zkou??m pr?zdn? ?etezec p?ev?st na ??slo, ale st?le se mi neda??. Nev?d?l by n?kdo poradit co je na tom ?patn?ho?

try
PDatabaze[PocetZaznamu].cislo_uctu := StrToInt (form1.ComboBox1.Text);
except
on EConvertError do MessageDlg('Chybn? zadan? typ ??tu', mtinformation, [mbOK],0);
else
;
end;

Místo EConverError bych tam dal

if Lenght(form1.ComboBox1.Text)=0 then 

   MessageDlg('Není vyplněno pole!', mtinformation, [mbOK],0);

try

  PDatabaze[PocetZaznamu].cislo_uctu := StrToInt (form1.ComboBox1.Text);

except

  on EConvertError do MessageDlg('Toto není číslo!', mtinformation, [mbOK],0);

end;



...

To BlackHole:

Díky, zkusím, poslední dobou sem delal jenom v C, tak mi nejak Pascalovsky procesury a fce nelezou a mysl a me ani nenapadaj takovyhle jednoduchosti :-)