请回答,谢谢(50分)

O

owen2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #1

我编了一个体彩的选号程序,思想是70个CHECKBOX,分别为1-10,7组,用7个FOR循环,类似于体彩中的复试选号.
但是,编译通过后,每个组选几个号,点开始,显示错误,是内存方面的A什么的,请问是怎么回事,该怎么解决,如有没看明白问题,但想回答我的,可以给我发EMAIL,告诉我你的电话或QQ,我的emailw

代码:

en2@yeah.net
谢谢!

 

Y

yamazeki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
; I: Integer;
begin
Edit1.Text:='';
Randomize;
for I := 1 to 7 do ; ;// Iterate
; begin
; Edit1.text:=Edit1.text+IntTOStr(Random(9));
; end; ; ;// for
end;

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #3

你看看循环的时候有没有越界访问。

 

L

linglingx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #4

肯定是循环的时候越界了，可以仔细检查一下

 

N

nsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #5

你的CHECKBOX是动态生成的吗？
可能是释放了不存在的CHECKBOX；
释放时先判断指针是否为空if not assigned(checkbox) then checkbox.free；
当然也有可能是越界。

 

O

owen2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-02

• #6

多人接受答案了。