07/01/08 22:54:47 dC5e7Xrd
>>553
おお、それかも。
これで問題ないように見えるけど、さすがに毎フレームごとにこんなことはできないなぁ。
uses
Math;
var
fpu: TFPUPrecisionMode;
begin
fpu := GetPrecisionMode; //変更前のFPUモードを取得しておく
SetPrecisionMode(pmExtended); //倍精度に変更
caption := FormatDateTime('yyyy/m/d hh:mm:ss', Now);
SetPrecisionMode(fpu); //元に戻す
end;