[crash94]

Здравствуйте формучане..
Имеется 60 чисел от 0 до 6000000. Пытаюсь сделать, чтобы когда пользователь вводит число в edit, то программа искала среднее между 2 числами.К примеру

Введено в edit число 8765
Ведется поиск. Если число вошло в диапозон edit > '8000' и edit < '10000' то выполнялось любое действие...

Пытался сделать так:

if ( Edit1.Text >= '0' ) and ( Edit1.Text < '700' ) then
begin
//code
end
else
if ( Edit1.Text >= '700' ) and ( Edit1.Text < '1400' ) then
begin
//code
end;

но если ввести число 800 к примеру, софт не срабатывает

[my33oh]

strtoint
inttostr

[crash94]

Спасибо, помогло

[PhoeniX]

А теперь введите в Edit вместо числа какую-нибудь абракадабру - и узнаете о себе много нового

[RusMaXXX]

используй лучше компонент TSpinEdit, если он не устраивает, то фильтруй вводимые символы в TEdit, к примеру так:

Код:

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

[NumLock]

Mask.TMaskEdit