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...