Zitat von
hsbc:
... muss nur noch die geeignete Stelle im Programm suchen, wo ich es vernünftig einbinden kann...
Hai Herbert,
einfach im
AfterOpen deines DataSets (Table oder
Query).
Zum Beispiel so:
Delphi-Quellcode:
procedure TDemoForm.ZQuery1AfterOpen(DataSet: TDataSet);
begin
with (DataSet.FieldByName('nummfeld') as TNumericField) do
begin
DisplayFormat := '#.###.##0.00';
end;
end;
Oder für alle:
Delphi-Quellcode:
procedure TDemoForm.ZQuery1AfterOpen(DataSet: TDataSet);
var
ndx: Integer;
begin
with DataSet do
begin
for ndx := 0 to Pred(Fields.Count) do
begin
if (Fields[ndx] is TNumericField) then
begin
(Fields[ndx] as TNumericField).DisplayFormat := '#.###.##0.00';
end;
end;
end;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"