有何偵錯工具可以協助奇怪的問題 |
|
尚未結案
|
|
Paicaso
中階會員   發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
我有一問題因我在一fORM上可執行
但在另一FORM居然有奇怪的問題
所以故意抓同一值,結果居然不一樣,有何工具偵錯
這些變數確定在僅在此FORM中 PR1 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值
PR2 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值
PR3 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值 LABEL5.Caption := 'PR1' inttostr(PR1);//-->結果=2正確
LABEL6.Caption := 'PR2' inttostr(PR2);//-->結果居然不一樣
LABEL7.Caption := 'PR3' inttostr(PR3);//-->結果居然不一樣 function INI_LOAD_INT(T_FILENAME, T_NAME :STRING; T_VALUE:INTEGER ):INTEGER;
var T : Tinifile;
BEGIN
TRY T := Tinifile.Create(T_FILENAME);
RESULT := T.ReadINTEGER(T_NAME,'INTEGER', T_VALE);
FINALLY T.Free; END;
END; T_FILENAME內容
[INV_PR1]
INTEGER=2
[INV_PR2]
INTEGER=2
[INV_PR3]
INTEGER=2
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 我有一問題因我在一fORM上可執行 但在另一FORM居然有奇怪的問題 所以故意抓同一值,結果居然不一樣,有何工具偵錯 這些變數確定在僅在此FORM中 PR1 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值 PR2 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值 PR3 := INI_LOAD_INT (FILEPATH_INV,'INV_PR1',0 );//-->故意抓同值 LABEL5.Caption := 'PR1' inttostr(PR1);//-->結果=2正確 LABEL6.Caption := 'PR2' inttostr(PR2);//-->結果居然不一樣 LABEL7.Caption := 'PR3' inttostr(PR3);//-->結果居然不一樣 function INI_LOAD_INT(T_FILENAME, T_NAME :STRING; T_VALUE:INTEGER ):INTEGER; var T : Tinifile; BEGIN TRY T := Tinifile.Create(T_FILENAME); RESULT := T.ReadINTEGER(T_NAME,'INTEGER', T_VALE); FINALLY T.Free; END; END; T_FILENAME內容 [INV_PR1] INTEGER=2 [INV_PR2] INTEGER=2 [INV_PR3] INTEGER=2Paicaso 你好: 有關 Debug 的工具~~參考看看這個吧
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2003-02-13 18:46:59
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-06-16 21:07:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |