Formatierte Dezimalstellen

[toyoman]

vielen Dank für diese Lösungsmöglichkeit, das ist natürlich ziemlich genial...

Gruss

Zitat von raiguen:

warum so umständlich, wenn es doch eine elegante Lösung gibt
Im AfterOpen-Ereignis des DataSets (Tabelle oder Query) das hier coden:

Delphi-Quellcode:

procedure TDataModule1.TabelleXYZAfterOpen(DataSet: TDataSet);
begin
  //--Variante 1
  (DataSet.FieldByName(FeldName) as TNumericField).DisplayFormat := '#0.00';
  //--Variante 2
  TNumericField(DataSet.FieldByName(FeldName)).DisplayFormat := '#0.00';
  //--FeldName steht für das entsprechende Tabellen-/QueryFeld, auf das die Formatierung angewendet werden soll
end;

//EDIT: Diese Vorgehensweise macht nur dann Sinn, sofern keine persistenten Felder (FeldEditor des DataSet) eingerichtet sind (was ich grundsätzlich NICHT mache, weil zu unflexibel) - denn dort kann über die Eigenschaft .DisplayFormat ein entsprechendes Format eingetragen werden...