您所在位置：主题：运行不起,来救下呀
gemingcao
[专家分：0] 发布于 2007-02-03 11:10:00
运行时在memo1.Lines .add('你计算的长方体为‘+format('x=%f,y=%f,z=%f') ,[x,y,z]));的x处出现"expected but identifier'x'found"的错误.怎么改呢?
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,s,v:real;
begin
x:=strtofloat(edit1.Text );
y:=strtofloat(edit2.text);
z:=strtofloat(edit3.Text);
s:=2*(x*y+x*z+y*z);
v:=x*y*z;
memo1.Clear ;
memo1.Lines .add('你计算的长方体为‘+format('x=%f,y=%f,z=%f') ,[x,y,z]));
memo1.lines.add('长方体的表面积为’+format('%f',[s]));
memo1.lines.add('长方体体积为‘+format('%f',[v]));
end;[em1]
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,s,v:real;
begin
x:=strtofloat(edit1.Text );
y:=strtofloat(edit2.text);
z:=strtofloat(edit3.Text);
s:=2*(x*y+x*z+y*z);
v:=x*y*z;
memo1.Clear ;
memo1.Lines .add('你计算的长方体为‘+format('x=%f,y=%f,z=%f') ,[x,y,z]));
memo1.lines.add('长方体的表面积为’+format('%f',[s]));
memo1.lines.add('长方体体积为‘+format('%f',[v]));
end;[em1]
