兩個編輯框的數據轉換問題！！！

Question

比如我在第一個輸入框輸入一個實數r，第二個輸入框顯示2.222r
我該怎麽實現？？

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := floattostr(2.222 * strtofloat(edit1.Text));
end;在Edit1的onChange事件中写

Answer 2

謝謝bee2518(迷茫ing)
我還想問下，用什麽函數來控制float小數點位到2位！比如：
function TDmSys.UnitTran(const SUnit, DUnit: string; Num: real): real;
begin
  //lb--->KG
  if (UpperCase(SUnit)='LB') and (UpperCase(DUnit)='KG') then
    Result := Num/2.20462;  if (UpperCase(SUnit)='KG') and (UpperCase(DUnit)='LB') then
    Result := Num*2.20462;end;高手們快幫忙啊！~分不夠可以加！

Answer 3

函数：formatFloat('0.00',value)function TDmSys.UnitTran(const SUnit, DUnit: string; Num: real): real;
begin
  //lb--->KG
  if (UpperCase(SUnit)='LB') and (UpperCase(DUnit)='KG') then
    Result :=formatFloat（‘0.00', Num/2.20462);  if (UpperCase(SUnit)='KG') and (UpperCase(DUnit)='LB') then
    Result := formatFloat（‘0.00', Num*2.20462);
end;

Answer 4

直接用fromt('%0.2f',21.12123)返回21.12