Formatierte numerische Ausgabe von Datensätzen

[Sharky]

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;