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

請問如何轉換字段形態?

答題得分者是:supman
BIG-ROM
初階會員


發表:94
回覆:91
積分:37
註冊:2005-04-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-25 14:16:20 IP:61.145.xxx.xxx 未訂閱
請問如何轉換字段形態?    各位經驗老道的大哥大大,你們好!請問如何轉換字段形態? ---------------------------------------------------- procedure TJJSZY.FormShow(Sender: TObject); var a, b, c :Integer; begin  a:=TJJSZY.SZY_CX1.FieldByName('haoma').AsString;  with SZY_CX do ..... ------------------------------------- 這樣的話還是出錯的提示,請問有什麼方法?拜托!謝謝!!    寫程序——新問題會接踵而來!
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-25 14:26:52 IP:61.70.xxx.xxx 未訂閱
您好: 雖然這是很明顯的錯誤,但麻煩您動動手把錯誤訊息打出來給大家看,不然下一次可能大家還是得猜您是遇到到什麼問題. a是數字型態,您的資料為字串當然等於不過去,請改成相同型態如下 a:=TJJSZY.SZY_CX1.FieldByName('haoma').AsInteger; 發表人 - supman 於 2005/04/25 14:46:28
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-25 14:48:59 IP:202.62.xxx.xxx 未訂閱
您好﹗    也有可能是因為haoma欄位是字串形態﹐那樣的話﹐就需要用StrToInt函數來轉 a:=StrToInt(TJJSZY.SZY_CX1.FieldByName('haoma').AsString);    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
BIG-ROM
初階會員


發表:94
回覆:91
積分:37
註冊:2005-04-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-25 14:52:18 IP:61.145.xxx.xxx 未訂閱
大大前輩,嗚~~~嗚~~~還是錯啦~~     [quote] 您好: 雖然這是很明顯的錯誤,但麻煩您動動手把錯誤訊息打出來給大家看,不然下一次可能大家還是得猜您是遇到到什麼問題. a是數字型態,您的資料為字串當然等於不過去,請改成相同型態如下 a:=TJJSZY.SZY_CX1.FieldByName('haoma').AsInteger; ...... 寫程序——新問題會接踵而來!
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-04-25 15:05:19 IP:61.70.xxx.xxx 未訂閱
您好: 請問SZY_CX1是什麼物件?請說明. 如果她跟Query用法一樣的話,改成這樣看看. a:=SZY_CX1.FieldByName('haoma').AsInteger; 或者 procedure TJJSZY.FormShow(Sender: TObject); var a, b, c :string; begin a:=SZY_CX1.FieldByName('haoma').AsString; end; 但看那個錯誤訊息,是SZY_CX1沒有FieldByName的Method 發表人 - supman 於 2005/04/25 15:20:33 發表人 - supman 於 2005/04/25 15:31:13
BIG-ROM
初階會員


發表:94
回覆:91
積分:37
註冊:2005-04-16

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-04-25 15:45:31 IP:62.0.xxx.xxx 未訂閱
是ADODataSet    
引言: 您好: 請問SZY_CX1是什麼物件?請說明. 如果她跟Query用法一樣的話,改成這樣看看. a:=SZY_CX1.FieldByName('haoma').AsInteger; 或者 procedure TJJSZY.FormShow(Sender: TObject); var a, b, c :string; begin a:=SZY_CX1.FieldByName('haoma').AsString; end; 發表人 - supman 於 2005/04/25 15:20:33
寫程序——新問題會接踵而來!
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-04-25 16:28:18 IP:61.70.xxx.xxx 未訂閱
AdoDataSet不支援FieldByName,如果要用請把元件改成AdoQuery 您必須再AdoDataSet中點兩下,將欄位加入 然後將程式改成如下: procedure TJJSZY.FormShow(Sender: TObject); var a, b, c :string; begin a:=SZY_CX1Haoma.AsString; end;
change.jian
版主


發表:29
回覆:620
積分:439
註冊:2003-06-02

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-04-25 16:53:49 IP:61.218.xxx.xxx 未訂閱
procedure TJJSZY.FormShow(Sender: TObject);
var
a, b, c :Integer;
begin
a:=TJJSZY.SZY_CX1.FieldByName('haoma').AsString; <---TJJSZY是什物件?一般應該不會有以T開頭命名的物件才是...嗯.這是約定俗成啦
with SZY_CX do
.....    
如果是TAdoDataSet,應該可以用如下code: a:=SZY_CX1.FieldByName('haoma').AsInteger;
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#9 引用回覆 回覆 發表時間:2005-04-25 17:05:40 IP:202.62.xxx.xxx 未訂閱
您好﹗    supman兄﹐小弟記得ADODataSet應該沒有不支援FieldByName屬性﹒    BIG-ROM﹐說明一下您所用的這個'haoma'這個欄位的形態﹐是字串形態or整數形態or其它形態﹐不同的形態在引用轉換時的函數也各不相同﹒    呵呵﹐change.jian兄找到了問題所在﹐去掉T即OK﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/04/25 17:17:14
------
忻晟
supman
尊榮會員


發表:29
回覆:770
積分:924
註冊:2002-04-22

發送簡訊給我
#10 引用回覆 回覆 發表時間:2005-04-25 17:31:36 IP:61.70.xxx.xxx 未訂閱
阿,抱歉,剛剛有看到一個錯誤訊息,沒測試完整,就Po上來,拍謝,我知道是什麼原因了 Form的名稱叫做JJSZY,他直接用TJJSZY.AdoDataSet這樣當然有問題,改成 a:=JJSZY.SZY_CX1.FieldByName('haoma').AsString; 這樣就可以了 所以說就像我第5樓說的改成那樣就可以了,Big ROM老大,您自己有沒有試阿???? 錯誤如下圖所示: 發表人 - supman 於 2005/04/25 17:38:03
BIG-ROM
初階會員


發表:94
回覆:91
積分:37
註冊:2005-04-16

發送簡訊給我
#11 引用回覆 回覆 發表時間:2005-04-28 18:33:28 IP:59.36.xxx.xxx 未訂閱
歹勢啦~~這樣也給您找出原因,感謝您喔~!    
引言: 阿,抱歉,剛剛有看到一個錯誤訊息,沒測試完整,就Po上來,拍謝,我知道是什麼原因了 Form的名稱叫做JJSZY,他直接用TJJSZY.AdoDataSet這樣當然有問題,改成 a:=JJSZY.SZY_CX1.FieldByName('haoma').AsString; 這樣就可以了 所以說就像我第5樓說的改成那樣就可以了,Big ROM老大,您自己有沒有試阿???? 錯誤如下圖所示: 發表人 - supman 於 2005/04/25 17:38:03
寫程序——新問題會接踵而來!
系統時間:2024-06-30 16:39:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!