[求救]突然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, 台湾好象叫回圈)。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |