FireDac-Query.Fields[Idx].AsString gibt 147 aus anstelle 147,00

[Uwe Raabe]

Zitat von juergen:

Delphi-Quellcode:

  my_Format := '0.00';
  TFloatField( Qyr.Fields[Idx] ).DisplayFormat := my_Format;
  TBCDField( Qyr.Fields[Idx] ).DisplayFormat := my_Format;
  TFMTBcdField( Qyr.Fields[Idx] ).DisplayFormat := my_Format;
  TCurrencyField( Qyr.Fields[Idx] ).DisplayFormat := my_Format;

  s := Qyr.Fields[Idx].DisplayText;

Das kannst du auch einfacher haben:

Delphi-Quellcode:

  my_Format := '0.00';
  TNumericField( Qyr.Fields[Idx] ).DisplayFormat := my_Format;
  s := Qyr.Fields[Idx].DisplayText;