помогите отладить EDIT

[photozaz]

Помогите с функцией для Edit.. вот например если использовать такой код::

procedure TForm1.Button1Click(Sender: TObject);  
var a:real;
begin
a:= StrToFloat(Edit1.Text);
Label1.Caption:=FloatToStr(a);
end;

то при вводе в компонент Edit какого-либо числа, после нажития на Button1, это число будет отображаться в Label1, а если не вводя ничего нажать Button1, то будет выдаваться ошибка, помогите, как избавиться от неё и при этом не меняя тип переменноый на string..

[pu4koff]

как-то так:

if TryStrToFloat(Edit1.Text,a) then Label1.Caption:=FloatToStr(a)
else Label1.Caption := 'введён не айс'

[photozaz]

Сообщение от pu4koff

как-то так:

if TryStrToFloat(Edit1.Text,a) then Label1.Caption:=FloatToStr(a)
else Label1.Caption := 'введён не айс'

чет не получается.. не работает.. вот такую шнягу пишет :::

[Error] Unit1.pas(39): There is no overloaded version of 'TryStrToFloat' that can be called with these arguments

[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.FormCreate'

[pu4koff]

тип переменной a должен быть: single, double или extended

[photozaz]

Сообщение от pu4koff

тип переменной a должен быть: single, double или extended

спасиб.. работает