[joomler]

Здравствуйте, подскажите пожалуйста, как проверить заполненны ли поля x:=StrToInt(Edit.text) с помощью if .

Смысл в том что должны вводиться цифры и чтобы программа не вылетала нужно проверить ввел ли данные пользователь, а также нужно проверить ввел ли пользователь цифры а не буквы.

Вот не знаю как это сделать.

[Drozh]

Функция TryStrToInt возвращает True если преобразование удалось

Код:

 if TryStrToInt(Edit1.Text, X) then
 begin
  ShowMessage('Цифры')
// В Х содержится требуемо число
 end
 else
  ShowMessage('Что-то другое');

[joomler]

а как записать если я не знаю какое конкретно число введет пользователь?

[Drozh]

Всмысле? Целое или вещественное? Для вещественного юзай TryStrToFloat

[joomler]

ага вещественное )) спасибо
я счас попробую.....

[joomler]

блин, не получается может поможет мой код подсказать как сделать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
y:real;
z:real;

begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=(x/100)*y;

  if TryStrToFloat(Edit1.Text) then  Label1.Caption:='Введите значения'
 else


if y<=50 then Label1.Caption:=FloatToStr(z)+ ' / 3*10'
          else Label1.Caption:=FloatToStr(z)+ ' / 3*10';
if y>=55 then Label1.Caption:=FloatToStr(z)+ ' / 3*8';
if y>=60 then Label1.Caption:=FloatToStr(z)+ ' / 4*6';
if y>=65 then Label1.Caption:=FloatToStr(z)+ ' / 4*6';
if y>=70 then Label1.Caption:=FloatToStr(z)+ ' / 5*5';
if y>=75 then Label1.Caption:=FloatToStr(z)+ ' / 5*5';
if y>=80 then Label1.Caption:=FloatToStr(z)+ ' / 4*5';
if y>=85 then Label1.Caption:=FloatToStr(z)+ ' / 4*4';
if y>=90 then Label1.Caption:=FloatToStr(z)+ ' / 3*3';
if y>=95 then Label1.Caption:=FloatToStr(z)+ ' / 3*2';
if y>=100 then Label1.Caption:=FloatToStr(z)+ ' / 2*2';