procedure TForm1.Button1Click(Sender: TObject); var j,j1,j2:string; bgein j1:='2'; j2:='3'; j:=floattostrf((strtoint(j)/strtoint(j1)*100),ffFixed,15,2);//格式化showmessage(j);end;
对不起,刚才打错了。应为: procedure TForm1.Button11Click(Sender: TObject); var j,j1,j2:string; begin j1:='2'; j2:='3'; j:=floattostrf((strtoint(j1)/strtoint(j2)*100),ffFixed,15,2);//格式化showmessage(j);end;
var
j,j1,j2:string;
bgein
j1:='2';
j2:='3';
j:=floattostrf((strtoint(j)/strtoint(j1)*100),ffFixed,15,2);//格式化showmessage(j);end;
procedure TForm1.Button11Click(Sender: TObject);
var
j,j1,j2:string;
begin
j1:='2';
j2:='3';
j:=floattostrf((strtoint(j1)/strtoint(j2)*100),ffFixed,15,2);//格式化showmessage(j);end;
floattostrf((strtoint(j1)/strtoint(j2)*100),ffFixed,15,2);//格式化
无错了!!!!