[求救]突然run時突然出唔到form |
|
尚未結案
|
|
christy315
一般會員   發表：9 回覆：8 積分：3 註冊：2004-07-11 發送簡訊給我 |
run時出唔到form~出返去時佢問要唔要debug~~
跟住出左個話InitCC32.exe俾另一個程序用緊的message?? 突然發現問題所在~當我唔call其中一個procedure就冇問題~唔知點解一call左就出唔到form~~但工作管理員就明明見到project1.exe run緊~~
以下係有問題的procedure~~照樣看真的不知有什麼問題~~請大家救救我!!
procedure SetQus;(*set the corresponding questions*)
var tempstr :string; lb : TLabel; ch : char; k,j : integer;
begin
assignfile(EQusFile,'q1.txt');
reset(EQusFile);
while not eof(EQusFile) do
begin
for k:= 1 to 2 do
for j:= 1 to 4 do
begin
while not eoln(EQusFile) do
begin
read(EQusFile,tempstr);
if k= 1 then ch := 'A' else ch:= 'D';
lb := FindComponent(ch IntToStr(j)) as TLabel;
lb.Caption := tempstr;
end;
readln(EQusFile);
end;
end;
closefile(EQusFile);
end; 發表人 - christy315 於 2004/07/20 14:03:21
|
|
pcplayer99
尊榮會員  發表：146 回覆：790 積分：632 註冊：2003-01-21 發送簡訊給我 |
引言: run時出唔到form~出返去時佢問要唔要debug~~ 跟住出左個話InitCC32.exe俾另一個程序用緊的message?? 突然發現問題所在~當我唔call其中一個procedure就冇問題~唔知點解一call左就出唔到form~~但工作管理員就明明見到project1.exe run緊~~ 以下係有問題的procedure~~照樣看真的不知有什麼問題~~請大家救救我!! procedure SetQus;(*set the corresponding questions*) var tempstr :string; lb : TLabel; ch : char; k,j : integer; begin assignfile(EQusFile,'q1.txt'); reset(EQusFile); while not eof(EQusFile) do begin for k:= 1 to 2 do for j:= 1 to 4 do begin while not eoln(EQusFile) do begin read(EQusFile,tempstr); if k= 1 then ch := 'A' else ch:= 'D'; lb := FindComponent(ch IntToStr(j)) as TLabel; lb.Caption := tempstr; end; readln(EQusFile); end; end; closefile(EQusFile); end; 發表人 - christy315 於 2004/07/20 14:03:21这里香港人可能比较少，你老兄的白话估计看得懂的人不多。 你的程式我没看懂。不知道为什么嵌了两重 while not eoln(EQusFile) do 你有没有设置一个断点在这段程式里，跟踪看看，是不是成了死循环了？（循环，Loop, 台湾好象叫回圈）。 |
發表時間：2004-07-20 13:07:19
IP:203.168.xxx.xxx 未訂閱
系統時間：2024-05-17 20:08:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |