Question

delphi这样写为什么不行啊

procedure TForm1.Button1Click(Sender: TObject);
var

a:string;

begin

a:=edit1.Text ;
strtofloat(a);
a:=Power(a,3); {他说这里错了}
floattostr(a);
edit2.Text :=a;

end;

==========================
[Error] Unit1.pas(37): Incompatible types: 'Extended' and 'String'

==================================

Answer 1

strtofloat(a); 这个转换的结果没有保存呀，a 的值没有改变！

a:=Power(a,3);
a 是string型，而Power(a,3)是real型的，赋值当然会出错！

追问

什么保存，难道要写成这样 k :=strtofloat(a) 这样是不是起到保存作用。。初学者。。

追答

k :=strtofloat(a) 就是把strtofloat(a)的结果存放在K变量中，a的值和类型都是不变的！

追问

哦 规则 是 这样的哦 明白了
我改成
procedure TForm1.Button1Click(Sender: TObject);
var

a:string;

begin

a:=edit1.Text ;

edit2.Text :=(floattostr(power(strtofloat(a),3)));

end;

Answer 2

var

a:string;
x : real;

begin

a:=edit1.Text ;
x :=　strtofloat(a);
a:=Power(x,3); {他说这里错了}
floattostr(a);
因为A是string 参数类型不对

追问

edit1.text是string类型的不对吗 应该怎么改

追答

var

a:string;
x : real;

begin

a:=edit1.Text ;
x :=　strtofloat(a);
a:=Power(x,3); {他说这里错了}
edit1.text := floattostr(a);
就这样就成了，记住输入对的数到EDIT1