TryStrToInt problem

[Zath]

Hello.
I'm using TryStrToInt to test the entry of an edit box.
After many attempts , I got it to work but is allows the value of 0.
My field entry must be 1..9.
Do we really call 0 an integer ?
How do I capture it's entry without having to check for keypresses etc. ?

Thanks.

[typo]

OnChange event handler?

[dogriz]

Don't you need something like this, instead of TryStrToInt?

Code: [Select]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if not(Key in ['0'..'9', #13]) then
    Key := #0;
end;

[mangakissa]

-1, -2, -3, ect are also integers. So yes, 0 is a part of it.
But what are you try to convert?

[Zath]

-1, -2, -3, ect are also integers. So yes, 0 is a part of it.
But what are you try to convert?

The requirement is to test edit1.text to see if its 1..9 then edit2.text to see if its 0.. and do a calculation.
You can move from edit1 to edit2 by return key, tab key and clicking, you can also click on a button to do the calculation.

[howardpc]

You would probably do best to use the NumbersOnly property of TEdit, and its OnEditingDone event.