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

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;