Вопрос

[Ewgen81]

Нубский вопрос: как проверить поле (Edit1), что в нем действительно число (Real) а не текст. NumbersOnly не предлагать - это целые числа, мне нужны любые.

[Greek9000]

Есть ф-ция

TryStrToFloat(str:String; val:Extended);

Возвращает true, если str - число с плавающей запятой.
Только не забывайте, что надо заботиться о том, какие настройки установлены в системе, а то долго будете думать, почему число 9.5 не преобразуется во float-тип, пока раскладку не поменяете
Я обычно явно указываю что должна быть точка, и перед конвертацией типов заменяю "," на "."

[Ewgen81]

у меня получилось вот как

    if TryStrToFloat(Edit1.Text) then a:=StrToFloat(FChislo1.Chislo1)
    else
    ShowMessage('Не число!');

компилятор ругается: [DCC Error] Unit2.pas(101): E2250 There is no overloaded version of 'TryStrToFloat' that can be called with these arguments
причем здесь перегруженный метод?

[asmodey1]

А в хэлпе посмотреть формат функции TryStrToFloat ?
А посмотреть внимательно пост 2 ?

[GunSmoker]

Ewgen81, ты отличаешь функцию с одним аргументом от функции с двумя аргументами?

[Ewgen81]

только сильно не ругайте, я только учусь
а второй аргумент это что? (val:Extended) переменная для записи результата обработки?

[MaxNik2009]

на вскидку по твоему вопросу:

var
  Str: string;
  I: Extended;
begin
  Str:= Edit1.Text;
  if TryStrToFloat(Str, I) then
  begin
    // тут действия если введено число
    // I - это число которое ввел пользователь
  end
  else
     raise Exception.Create('введенные данные не являются числом');
end;

[Ewgen81]

Все понял теперь, только вот на

raise Exception.Create('введенные данные не являются числом');

ругается опять, попробовал showmessage тоже самое
First chance exception at $7C812AFB. Exception class EConvertError with message ''лл' is not a valid floating point value'. Process Project2.exe (1576)

[MaxNik2009]

''лл'

а это что за сообщение ты пытаешься вывести?

[Ewgen81]

для проверки ввел в поле в место цифры
если вводишь цифры, все нормально работает и считает