Delphi функция StrToFloatDef
Добавлено: 21 май 2009, 11:39
Написала программу решения квадратного уравнения:
Но нужно использовать функцию StrToFloatDef для преобразования введенных в поля значений в форму вещественных чисел с обнулением неправильно введенных значений, например: a:=StrToFloatDef(Edit1.Text1,0). Но если я пишу Text1, то мне выдается ошибка неизвестная переменная, пыталась ее объявить, но ошибка все равно! если пишу просто Text, то все нормально, но преподаватель говорит, что это не правильно и нужно писать Text1.
Что делать? Подскажите пожалуйста, очень благодарна буду!
Код: Выделить всё
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;
Что делать? Подскажите пожалуйста, очень благодарна буду!