FireMonkey, Livebinding und Nachkommastellen in einem TGrid

[elmar.faber]

Vielen Dank für den Hinweis, ich dachte ich könnte damit das Problem lösen, aber
irgendwie denke ich wohl falsch herum... Mal ein einfaches Beispiel:

Delphi-Quellcode:

procedure TFrmZutaten.Grid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
Var
  V : TValue;
  S : String;
begin
  If Column.Header = 'Amount' Then Begin
    S := '18';
    V := TValue.From<String>(S);
  End Else
    V := Value;

  Column.DefaultDrawCell(Canvas, Bounds, Row, V, State);
end;

Und so sieht es aus (rechtes Grid), wieder die Ausgabe 18.00