菜鸟级问题（高分赠送）
A=1000
我想得到A的60%后 保存在B里 B是integer类型

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
A,B:integer;
begin
A:=1000;
B:=Round(A*0.6);
showmessage(inttostr(B));
end;
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
A,B:integer;
C:double;
begin
A:=1000;
C:=strtodouble(edit1.text);
B:=Round(A*C);
showmessage(inttostr(B));
end;