名前
題名
▼ peterpanさん > 外出していました。 > たくさんの書き込みありがとうございました。 > > 私が使用しているのは 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); > > とするとエラーが出なくなりました。 > ご報告まで。 >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link