【搞定】[请求]关于取值**

dupit

query := Tquery.Create(nil);
  query.ConnectionString := 'DATABASEURL=Biz:\QYZYGL\QYZYSJK.DATABASE';
  query.close;
  query.CommandText := 'SELECT FLBMB.FLBM, FLBMB.FLMC FROM FLBMB WHERE LXBM ='+'''WD''';
  query.open;
  Tem_count:= query.RecordCount;
  Setlength(Array_menu,Tem_count);
  if   Tem_count<=0   then   NewFile.enabled:=False;
  NewFile.OnClick := nil;
  NewFile.Clear;
    For   i:=0   to   Tem_count-1   do
    begin
      if   Trim(query.FieldByName('FLMC').Asstring)<>''   then
      begin
        Array_menu:=Tmenuitem.create(self);
        Array_menu.Caption:=Trim(query.Fieldbyname('FLMC').Asstring);
        NewFile.Add(Array_menu);
        Array_menu.onclick:=customclick;
      end;
    end;
这样我所创建的菜单是一样的
因为数据总是定位在第一条
怎么才能取到查询出来的所有值呢？

dupit

OK了◎！
谢谢！