Formatierung von Floatfeldern in der Anzeige

[Thanatos81]

Oder, für die ganz Schreibfaulen:

Delphi-Quellcode:

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
   TFloatField(DataSet.FieldByName('DasFeld').DisplayFormat := '##0.0';
end;

bzw.

Delphi-Quellcode:

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
   TFloatField(DataSet.FieldByName('DasFeld').DisplayFormat := '#,##0.00 €';
end;

für einen Euro-Wert mit Tausendertrennzeichen und zwei Nachkommastellen.