下面這段程式執行時會發生「invalid floating point operation」的錯誤訊息
請問會是資料型態或是欄位大小的問題嗎???還是有其他可能?

Tbprdtrd.FieldByName('per1').AsFloat := Roundb((xarea[1] * d1)/Vwgt);

------
Aki..就算沒有明天

1.你的per 是 float型態嗎?
2.右端的算式, 算出來是float值還是 extended
3.因為你指定左端必須以 float存入, 很明顯這是兩端存取值不同型態所引發
4.試試左端改用 .value 來存(由Delphi自已控制型態)
5.或者定義一個float變數, 先將右端算式存入到這個變數, 再指定給左端的 .asfloat
===================引 用 chi120 文 章===================
下面這段程式執行時會發生「invalid floating point operation」的錯誤訊息
請問會是資料型態或是欄位大小的問題嗎???還是有其他可能?

Tbprdtrd.FieldByName('per1').AsFloat := Roundb((xarea[1] * d1)/Vwgt);

1. delphi 有 roundB 嗎?
2. 如果 roundb 是您自己寫的, 可否提供一下程式碼
3. xarea[1], d1, vwgt 的型別分別是什麼 ?

thanks

===================引 用 chi120 文 章===================
下面這段程式執行時會發生「invalid floating point operation」的錯誤訊息
請問會是資料型態或是欄位大小的問題嗎???還是有其他可能?

Tbprdtrd.FieldByName('per1').AsFloat := Roundb((xarea[1] * d1)/Vwgt);

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

Vwgt 要避免為 0 
===================引 用 chi120 文 章===================
下面這段程式執行時會發生「invalid floating point operation」的錯誤訊息
請問會是資料型態或是欄位大小的問題嗎???還是有其他可能?

Tbprdtrd.FieldByName('per1').AsFloat := Roundb((xarea[1] * d1)/Vwgt);

Roundb
function TDataModule1.Roundb(Value : Extended) : Extended;
begin
Result := StrToFloat(Format('%1.4f',[Value]));
end;
xarea[1], d1, vwgt 的型別分別是什麼 ?
皆為 real

------
Aki..就算沒有明天

有拿一筆會出現錯誤訊息的資料來測
它的 Vwgt 為 5.82426 , 不為0
@@

------
Aki..就算沒有明天

問題已解決
真的是Vwgt為零 (分母為零) 所發生的錯誤
謝謝各位大大

------
Aki..就算沒有明天