Question

Ошибка Delphi - в чем причина?

Код:

implementation

var a,b,c,d:real;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:=StrToFloat(a);

Edit2.Text:=StrToFloat(b);

c:= (a*b-(a*b/100*5));

d:= (a*b-(a*b/100*7));

if (a<10) or (b<10000) then

Edit3.Text:=FloatToStr(a*b);

if ((a>10) and (a<50)) or ((b>10000) and (b<30000)) then

Edit3.Text:=FloatToStr(c);

if (a>50) or (b>30000) then

Edit3.Text:=FloatToStr(d);

end;

Выдаёт ошибку:

[dcc32 Error] Unit1.pas(32): E2250 There is no overloaded version of 'StrToFloat' that can be called with these arguments

[dcc32 Error] Unit1.pas(33): E2250 There is no overloaded version of 'StrToFloat' that can be called with these arguments

Что делать?

Answer 1

Наверно, вместо:

надо

а := StrToFloat(Edit1.Text);

b := StrToFloat(Edit2.Text);

Вы хотите же из полей ввода взять циферки, и присвоить их переменным ? Если да - то надо так, как я указал выше. Ошибка, которую выдает компилятор, из за того, что вы хотите переменные со значением NULL (а у вас a и b - без инициализации и неверного типа) привести к числу с плавающей точкой. Компилятор требует инициализации переменных, и тип String для функции StrToFloat.

Answer 2

Соглашусь с Anastaziolog, вы написали эти 2 строчки (а := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text)) в начале выполнения, они в себе - эти 2 переменные ничего не несут, к тому же StrToFloat - это выдернуть строку и перевести в Double, а надо написать FloatToStr - это выдернет Double и переведет в строку. (и не забудьте перед этими 2 строками указать значения a и b. Например a:=0; b:=0; - это не критично, Delphi может и сам объявить их как 0 (по умолчанию), но по этикету лучше делать так))