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