变量名字不要用Self

另, 参考:

http://rabbitfox.blog.sohu.com/36838458.html

procedure SaveStuAnswer(AControl: TComponent);
var
  i,j,k : Integer;
  StrList:TStringList;
  AnswerStr,LSStr:string;
  SqlStr:string;
  SaveQuery:TADOQuery;
begin
  SaveQuery:=TADOQuery.Create(nil);
  StrList:=TStringList.Create ;
  k:=0;

  for i:=0 to AControl.ComponentCount -1 do
  begin
    if AControl.Components[i] is TLabel then
    begin
      StrList.Add('Qu'+intToStr(k)+'='+TLabel(AControl.Components[i]).Name );
      k:=k+1;
    end;
  end;

  for i:=0 to StrList.Count -1 do
  begin
    AnswerStr:='';
    for j:=0 to AControl.ComponentCount-1 do
    begin
      if AControl.Components[j] is TCheckBox  then
      begin
        LSStr:=TCheckBox(AControl.Components[j]).Name ;
        if (StrList.Values['Qu'+intToStr(i)]=Copy(LSStr,1,Length(LSStr)-1)) and
                              (TCheckBox(AControl.Components[j]).Checked)    then
        begin
          AnswerStr:=AnswerStr+ Copy(LSStr,Length(LSStr),1)
        end;
      end;
    end;

     end;
end;




现在我想在一个窗体中用函数统计另一个窗体中控件的个数,请问怎样实现.

就知道问，给你答案你又不看。

self我是作为一个参数传递的。
不过问题现在已解决了。

呵呵~~~~~