Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Formatierte numerische Ausgabe von Datensätzen

  Alt 26. Mär 2006, 06:17
Zitat von hsbc:
... muss nur noch die geeignete Stelle im Programm suchen, wo ich es vernünftig einbinden kann...
Hai Herbert,

einfach im Delphi-Referenz durchsuchenAfterOpen 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"
  Mit Zitat antworten Zitat