Delphi функция StrToFloatDef

[Даша:)]

Написала программу решения квадратного уравнения:

Код: Выделить всё

procedure TForm1.N1Click(Sender: TObject);
begin
  a:=StrToFloatDef(edit1.Text,0);
  b:=StrToFloatDef(edit2.Text,0);
  c:=StrToFloatDef(edit3.Text,0);
  d:=b*b-4*a*c;;
  if d>=0 then
  begin
   if a=0 then begin
      label1.Caption:='Это не квадратное уравнение!' ;
      label2.Caption:= '';
       end
    else
    begin
      x1:=(-b-sqrt(d))/(2*a);
      x2:=(-b+sqrt(d))/(2*a);
      label1.Caption:='x1='+FloatToStr(x1);
      label2.Caption:='x2='+FloatToStr(x2);
    end;
  end
  else
  begin
    label1.Caption:='Дискриминант меньше 0';
      label2.Caption:= '';
  end;
  end;

Но нужно использовать функцию StrToFloatDef для преобразования введенных в поля значений в форму вещественных чисел с обнулением неправильно введенных значений, например: a:=StrToFloatDef(Edit1.Text1,0). Но если я пишу Text1, то мне выдается ошибка неизвестная переменная, пыталась ее объявить, но ошибка все равно! если пишу просто Text, то все нормально, но преподаватель говорит, что это не правильно и нужно писать Text1.
Что делать? Подскажите пожалуйста, очень благодарна буду!

[BHy4ok]

Текст ошибки ?

Либо - edit1.Text,0
Либо - edit1.Text,1
Видимо вы не правильно поняли преподователя.

[Игорь Акопян]

но преподаватель говорит, что это не правильно и нужно писать Text1.

ваш преподаватель либо идиот, либо вы не поняли что он от вас хочет.
У контрола TEdit есть свойство Text. Никаких Text1 или Text215 там нет