狂狼 谢谢:) 拿分!

Question

procedure TForm2.FormCreate(Sender: TObject);
var
  i:integer;
begin
  i:=0;
  conn;
  Coolpanel2.Visible:=false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select 名称 from pubdata where 职业=高 and 性别=女');
  ADOQuery1.Open;//××××××××××××××××××××××××这里用Open
  while (not ADOQuery1.eof) do
  begin
    ADOQuery1.First;
    Createarraylist(i);
    i:=i+1;
    ADOQuery1.Next;
  end;
  ADODataset1.First;
end;