全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:973
推到 Plurk!
推到 Facebook!

數據集賦值的問題

答題得分者是:sos_admin
sparklerl
一般會員


發表:2
回覆:5
積分:1
註冊:2007-03-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-04-24 10:25:02 IP:61.183.xxx.xxx 訂閱
ADOResult.fieldbyname('sampleID').Value:=strtoint(trim(sampleID.Text));

如上,前一個sampleID是數據庫字段,在MSSQL中字段屬性爲INT,后一個sampleID是一個Ttext的name,這句話在編譯的時候提示"發生未知的錯誤",我在delphi->tools->debugger options>language Exceptions卡片下的stop on delphi Exceptions取消,就不會有這個提示(這個也是在INTERNET上找到的的方法),不知道爲什麽會這樣,這樣對程序的影響有多大?

謝謝各位大大,幫幫忙了.
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-25 15:12:03 IP:220.133.xxx.xxx 訂閱
"我在delphi->tools->debugger options>language Exceptions卡片下的stop on delphi Exceptions取消"
這一段我沒研究, 倒是
ADOResult.fieldbyname('sampleID').Value:=strtoint(trim(sampleID.Text));
這一段會不會是trim(sampleID.Text) 為空字串, 再用 strtoint 的話而造成問題.

if trim(sampleID.text)='' then
ADOResult.fieldbyname('sampleID').Value:=0
else begin
ADOResult.fieldbyname('sampleID').asinteger:=strtoint(trim(sampleID.Text));
// 或直接
// ADOResult.fieldbyname('sampleID').asstring:=sampleID.Text;
end;
不知會不會改善
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
sparklerl
一般會員


發表:2
回覆:5
積分:1
註冊:2007-03-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-04-27 20:06:36 IP:61.183.xxx.xxx 訂閱
谢谢st33chen

可以確定的是 不是trim(sampleID.Text)爲空造成的錯誤,下麵的兩種方式沒試過.

還是結帖吧 好像沒有人遇到這個情况,可能是我的delphi安裝有BUG吧.
sos_admin
版主


發表:121
回覆:697
積分:768
註冊:2003-07-23

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-04-27 20:40:45 IP:218.94.xxx.xxx 未訂閱
您的程序我在D7下测试没有发现编译错误,可能是你项目其它地方冲突,请检查!

就是这样也不会错呀:)

var
simpleid: Integer;
begin
if not TryStrToInt(trim(sampleID.Text), simpleid) then
simpleid := 0;
ADOQuery1.fieldbyname('sampleID').Value := simpleid;

系統時間:2024-05-18 17:10:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!