database - 1.0 未満の数値フィールドの Delphi TFloatField.DisplayFormat

Question

これが私の手順です。

procedure format_integer_field(Atable: TDataSet);
 var i: integer;
begin
 if Atable.Active then
 if Atable.FieldCount > 0 then
 with Atable do
 begin
  for i:= 0 to FieldCount-1 do
  if (Fields[i] is TIntegerField) then
  begin
   (Fields[i] as TIntegerField).DisplayFormat := '###,###';
   (Fields[i] as TIntegerField).EditFormat := '#';
  end
  else
   if (Fields[i] is TFloatField) then
  begin
   (Fields[i] as TFloatField).DisplayFormat := '###,###.##';
   (Fields[i] as TFloatField).EditFormat := '#.##';
  end;
 end;
end;

これは、「0.9」のような数値が入力され、結果が「.9」になるまで問題なく機能します。「1」より小さい浮動小数点数の前に、桁区切り記号とゼロを使用するにはどうすればよいですか。

Answer 1

必要なフォーマットは###,##0.0#