|
外出していました。
たくさんの書き込みありがとうございました。
私が使用しているのは Delphi 10.2.3(TOKYO) です。
エラー箇所は下記のとおりです。
----------------------------------------------
//書式指定なし
if FieldFmt = '' then begin
//金額型
if FieldTyp = ftCurrency then begin
Digit := CurrencyDecimals; //<------ここでエラー
Result := CurrToStrF(PrnValue, ffCurrency, Digit);
//金額型以外
end else begin
Result := CurrToStrF(PrnValue, ffGeneral,0);
end;
//書式指定あり
end else begin
Result := FormatFloat(FieldFmt, PrnValue);
end;
----------------------------------------------
なお，念のため「FormatSettings.」を付加して
↓
//金額型
if FieldTyp = ftCurrency then begin
Digit := FormatSettings.CurrencyDecimals;
Result := CurrToStrF(PrnValue, ffCurrency, Digit);
とするとエラーが出なくなりました。
ご報告まで。
|