|
puedes crear un campo TCurrencyField por ejemplo...
algo asi como:
var
T: TCurrencyField;
begin
Query1.Close;
T := TCurrencyField.Create(Self);
T.FieldName := 'Amount';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;
sacado de la ayuda de delphi...
|