procedure TForm1.Button1Click(Sender: TObject);
begin
Table2.Append;
Table2.FieldByName('數量').AsString:=edit3.Text;
table2.post;
end;

假設在edit3輸入100
但如何把它自動改成-100存到(數量)這個欄位裡面
paradox7 type 是N

謝謝..

編輯記錄

您好,

試一下
Table2.FieldByName('數量').AsInteger := -strtoint(edit3.Text);

(請注意 : 要先有程式碼去判斷 edit3 的內容能轉為數字)

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

編輯記錄

其實非常簡單, 國中不都學過 負負得正的運算?

strtoint(edit3.text)*-1
或者白痴造句法
strtoint('-' edit3.text)

編輯記錄

兩位大大提供的方法 

我都測試過了 ~

都可以用^^

非常感謝!!

= =奇怪~結案的按鈕怎麼不見了...

編輯記錄