🚀 go-pugleaf

�� �� skyweb (����) �Ĵ������ᵽ: ��
: �� �� DYQ (̫��) �Ĵ������ᵽ: ��
: : ���Ծ���һЩ��
: : ���Թ����Ƕ�����������⣬�����ڵij���ֻ����һ��������ˣ���Ȼ֪����
: : ����һ��һ�����������ǣ��Һ�����Ҳ���в������Լ�����ô����£�������
: BCB �Ҳ����ã������й�������Ʋ�������Ϥ��������һ��Delphi���룬�ɹ��ο���
: procedure TForm1.FromCreate(Sender: TObject);
: var
:    i: integer;
: begin
:    for i:=0 to ControlCount-1 do
:    if Controls[i] is TCheckBox then
:       TCheckBox(Controls[i]).Checked:=false;
: end;
: �������Delphi����ת����BCB���룬��OK�ˡ�Controls��һ�����飬������ΪTFrom
: �����й��������������������ڵĹ�����ControlCount���������Ĵ�С��������
: ComponentsҲ���ԣ�ֻҪ�����ϴ����е�Controls�ij�Components,ControlCount��
: ΪComponentCount���ɡ�

������һ�½���������תΪBCB�����£�
int i;
TCheckBox *TheCheckBox;

for (i=0;i<ControlCount-1;i++)
{
    if (Control[i]->ClassNameIs("TCheckBox")
        {
         TheCheckBox=(TCheckBox *)Control[i];
         TheCheckBox->Checked=False;
        }
}

�����������뻹����ЩС���⣺��Ҫ����out of bound(1)
��֪��λ�кθ߼�

--
�� ��Դ:���������� BBS bbs.nease.net��[FROM: max1-79.guangzh]