1,979
社区成员
发帖
与我相关
我的任务
分享FastReport报表取值的问题，下面代码进入死锁！请问如何解决
j:=0;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
end;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
end;
...全文
请发表友善的回复…
发表回复
bdmh 2011-07-01
- 打赏
- 举报
你的i一直等于1，必然退不出while
OooOooOooOooO 2011-06-30
- 打赏
- 举报
j:=0;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
i:=i+1;
end;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
i:=i+1;
end;
