Qual o erro dessa linha de código???
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended;
Begin
TRY
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
strtofloat(edit4.Text):=a*b*c;
EXCEPT
END;
end;
var
a,b,c:extended;
Begin
TRY
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
strtofloat(edit4.Text):=a*b*c;
EXCEPT
END;
end;
Rafael
Curtidas 0
Respostas
William
10/03/2015
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:extended;
Begin
TRY
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
strtofloat(edit4.Text):=a*b*c;
EXCEPT
END;
end;
var
a,b,c:extended;
Begin
TRY
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
strtofloat(edit4.Text):=a*b*c;
EXCEPT
END;
end;
Atribuição está do lado errado:
edit4.Text:=FloatToStr(a*b*c);
GOSTEI 0