DBGrid - alinhando campo a direita e formatando em runtime

Top  Previous  Next

var

  i : Integer;

begin

  for i:=0 to DataSet.FieldCount -1 do

  begin

    if DataSet.Fields[i].DataType = ftFloat then

    begin

      (DataSet.Fields[i] as TFloatField).DisplayFormat := '#,##0.00';

      (DataSet.Fields[i] as TFloatField).Alignment := taRightJustify;

      (DataSet.Fields[i] as TFloatField).EditFormat := '#,##0.00';

    end;

  end;

end;