zeoslib:怎样定义字段的显示格式


    我使用zeos 7.1.3a stable。

    nvarchar 字段中的数字,应该显示为5600,实际显示为 5,6E4。在zeos的某个老版本中,显示是正确的。

    解决办法:

Procedure TFrameGrid.InitialiseDataset(ADataset: TDataset);
Var
  i: Integer;
  oField: TField;
Begin
  If Not Assigned(ADataset) Then
    Exit;

  For i := 0 To ADataset.FieldCount - 1 Do
  Begin
    oField := ADataset.Fields[i];

    If oField.DataType In [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency] Then
      oField.OnGetText := @DatasetOnGetText;
  End;
End;  

Procedure TFrameGrid.DatasetOnGetText(Sender: TField; Var aText: Ansistring;
  DisplayText: Boolean);
Begin
  aText := Sender.AsString;
End;


http://forum.lazarus.freepascal.org/index.php/topic,24674.0.html?PHPSESSID=8201fde82b83088fbeb1a3e489726367

posted @ 2014-05-30 08:58  cuibq  阅读(225)  评论(0编辑  收藏  举报