2 Stellen im Stringgrid

[Robert_G]

Dein Dataset weiß welches Format die Spalte hat.
Der Rest ist nur noch rumprobieren

(Außerdem Delphi OH durchsuchen nach "FloatToStrF")

Dein Dataset wird wahrscheinlich die Methoden von einem der beiden Beispiele verwenden:

ADOQuery (ADO)

Delphi-Quellcode:

 While Col < FieldCount Do
  Begin
    If FieldDefs[Col].Precision > 0 Then
      Grid.Cells[Col + Grid.FixedCols, Row] := 
        FloatToStrF(Fields[Col].AsFloat, ffNumber, FieldDefs[Col].Precision, FieldDefs[Col].Size)
    Else
      Grid.Cells[Col + Grid.FixedCols, Row] := Fields[Col].asString;
    inc(Col);
  End;

OracleQuery (DOA)

Delphi-Quellcode:

  While Col < FieldCount Do
  Begin
    If FieldPrecision(Col) > 0 Then
      Grid.Cells[Col + Grid.FixedCols, Row] :=
        FloatToStrF(FieldAsFloat(Col), ffNumber, FieldPrecision(Col), FieldScale(Col))
    Else
      Grid.Cells[Col + Grid.FixedCols, Row] := FieldAsString(Col);
    inc(Col);
  End;

Nachtrag: Row soll die Zeile des Grids sein in dem sich die Query befindet
zum Bsp.:

Delphi-Quellcode:

Row := Grid.FixedRows;

With Query Do
Begin
  While not Eof  do
  Begin
    ...
    inc(Row);
  End;
End;

Edit2: Letzten Nachtrag korrigiert