Procedura Val

Namiesto funkcie IntToStr použite procedúru Val

Val (S, var V; var Code:integer);

Ak je po skončení tejto procedúry hodnota Code nastavená na 0, v stringu S bola hodnota -- celé číslo (ak je premenná V celočíselná), inak vznikla chyba.

Napr. pre naše použitie:

var PocetDni : integer;
    Code : integer;
...
    Val(Edit1.Text, PocetDni, Code);
    if Code<>0 then exit;