解决方案 »

  1.   

    你都没open - -  就先获取他的值了,当然会报错啦
      

  2.   

          Open;
    Edit1.Text:=fieldbyname('total_title').AsString;
    这样就可以了!
      

  3.   

    Close;再Clear;
    这个Close纯属多余,Clear本身就会Close
      

  4.   

    procedure TForm1.Button8Click(Sender: TObject);
    var
      q4,q5: TQuery;
      str:string;
     
    begin
      Database1.Connected := true;
      q4:= Tquery.Create(nil);
      q4.DatabaseName := database1.DatabaseName;
      with q4 do
        begin
          str:= 'select count(distinct qshm) as total_title from t_inv_title';
          Close;
          SQL.Clear;
          SQL.Add(str);
            Open;
        Edit1.Text:=fieldbyname('total_title').AsString;    end;
        
    end;
      

  5.   

       Edit1.Text:=fieldbyname('total_title').AsString;
          Open;
    顺序调整一下