各位 Delphi 高手 請指點 如何把資料欄位 - 負數符號去除，只保留有效質？
例如 -2.814 (只要2.814不管 -負數)
我是用 資料欄位屬性 Ａ Type 所以在 加減乘除之後，有- 負數 存放於 Table 的相關欄位
很麻煩做下一部資料再處理
======>>> 希望能夠一次在運算當中就解決 - 負數問題，不知有否方式可以解決？

ABS(-2.814)

===================引 用 K1086 文 章===================
各位 Delphi 高手 請指點?如何把資料欄位 - 負數符號去除，只保留有效質？?
例如 -2.814 (只要2.814不管 -負數)
我是用 資料欄位屬性 Ａ Type 所以在 加減乘除之後，有- 負數?存放於 Table 的相關欄位
很麻煩做下一部資料再處理
======>>> 希望能夠一次在運算當中就解決 - 負數問題，不知有否方式可以解決？?

------
~小弟淺見，參考看看~

我已經發簡訊帶區段運算程式給你了 
麻煩看一下好嗎?/

也就是DBEdit9.text:=FLOATTOSTR(STRTOFLOAT(avg)/strtoint(DBEdit9.text)); 這一段算出來會有負數嗎?
如果是的話DBEdit9.text:=FLOATTOSTR(Abs(STRTOFLOAT(avg)/strtoint(DBEdit9.text)));
加入Abs的函數，就是取絕對值的意思
以下是Delphi的Help：

Abs function

Returns an absolute value. Unit
System
Category
arithmetic routines

function Abs(X);
Description
Abs returns the absolute value of the argument, X.
X is an integer-type or real-type expression.

=========================================================================
procedure TTwn_ktkFm1.DBEdit9Click(Sender: TObject);
var avg,fot:string;
begin
avg:='106';
DBEdit9.text:=inttostr(strtoint(DBEdit1.text) strtoint(DBEdit2.text) strtoint(DBEdit3.text)
strtoint(DBEdit7.text)-strtoint(avg));

(STRTOFLOAT(DBEdit9.text)/175);
DBEdit9.text:=FLOATTOSTR(STRTOFLOAT(avg)/strtoint(DBEdit9.text)); //175-總加再用175除餘數
end;

------
~小弟淺見，參考看看~

謝謝您的指點 加上abs 函數就解決了！