Ošetření StrToInt – Delphi – Fórum – Programujte.com

Dobry den. Potreboval bych poradit.
Na formuláři mám Edit1 a text v něm převádím pomocí řetězce StrToInt(Edit1.text). To znamená že to co zadám do pole Edit1 mě to převede do Integer. Ale když do Edit1 nezadám číslo ale nějaký text, tak mi to vyhodí chybovou hlášku: '...to slovo...' is not a valid integer value. Jak to mám ošetřit? Aby mi to hodilo moji hlášku.....třeba- Do pole můžete zadávat jen číslo!

na to sluzi procedura val

napr:

var:
kod, cislo: integer;
begin
val(Edit1.Text, cislo, kod); // prevedie text z Edit1.Text do premennej cislo a ak bude kod 0 tak bolo zadane cislo;
if (kod <> 0) then ShowMessage('nezadal si cislo');
end;

bo taky muzes :

try

a:=strtoint(edit1.text);

finnally

showmessage('povedlo se');

Dobre....díky ;-)

Všechno funguje, až na to, že když použiji tu 1. variantu:

var: 

  kod, cislo: integer;

begin

  val(Edit1.Text, cislo, kod);

  if (kod <> 0) then ShowMessage('Nezadal si cislo!');

end;

a nedělá ti to jenom ve vývojovym prostředí? Zkus program spustit samotnej

Jinak by se taky dalo filtrovat v události OnKeyPress, pokud by zadaný znak nebyl číslo, tak by si nastavil znak na #0

nn dělá to i když spustím samotnej program...to je pravda ale nevim jak bych to napsal

seberm píše:#
# Všechno funguje, až na to, že když použiji tu 1. variantu: .....

s:='text';

try

i:=strtoint(s);

except

showmessage('zade cislo');

end;

Aha už to chápu díky moc...zkusim to

A aby to bylo ještě pěknější, dal bych míst ShowMessage

Application.MessageBox('Nezadal jsi číslo!','Chyba zadání!',MB_ICONERROR);

seberm píše:#
# Dobry den. Potreboval bych poradit.#
#Na formuláři mám Edit1 a text v něm převádím pomocí řetězce StrToInt(Edit1.text). To znamená že to co zadám do pole Edit1 mě to převede do Integer. Ale když do Edit1 nezadám číslo ale nějaký text, tak mi to vyhodí chybovou hlášku: ##uvozovka##...to slovo...##uvozovka## is not a valid integer value. Jak to mám ošetřit? Aby mi to hodilo moji hlášku.....třeba- Do pole můžete zadávat jen číslo!

Pouzij definici pro except to znamena Try -> except end mezi except a end zadas vlastni hlasku pri kolapsu v behu programu.
Ahoj.

setWindowLong(edit.Handle, GWL_STYLE, getWindowLong(edit.Handle, GWL_STYLE) OR ES_NUMBER);
Zavolat někdy při spuštění