數據庫保存為'字段=0.15',而我想在dbedit或dbgrid里顯示15%,我已在displayformat設置為'0.00%',但顯示的為0.15%. 輸入時為15,保存則為0.15,不知如何設置,請幫忙

Hi huangbh57,    1.與 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=62409 同

procedure TForm1.Table1AMTGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := FormatFloat('0.00%',TFloatField(Sender).AsFloat * 100);
end;

2.先定義一個全域變數 MustChange

....
  private
    { Private declarations }
    MustChange : Boolean;
  public
....

FormCreat 時將變數 MustChange 設為 True

procedure TForm1.FormCreate(Sender: TObject);
begin
  MustChange := True;
end;

在該 TFloatField 的 OnChange 事件加入以下程式碼

procedure TForm1.Table1AMTChange(Sender: TField);
begin
  if MustChange then
    begin
      MustChange := False;
      TFloatField(Sender).AsFloat := TFloatField(Sender).AsFloat / 100;
    end
  else
    MustChange := True;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman