两个问题
1:我的ado上的ConnectionString是空的,现在我想把在ini里面的连接符取出来赋值给ado,
但赋值后不能运行,连接不上
adocon:=inif.ReadString('设置','con',''); 
ado.ConnectionString=adocon;求大虾指导正确的语法2现在我有一个PageControl自动创建上面的tabsheet,但我现在想重新刷新它,有没有什么方法?
每次我刷新都把数据重复添加上去
procedure TForm2.showsheet;    //显示文字ini
var myinifFileName:string;
    inif:TiniFile;
    myBtnCaption:string ;
    i:integer;
begin
    AF.Visible:=false;
    AF.Items.Clear;
    inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'con.ini');
    inif.ReadSections(AF.Items);
    for i:=2 to  AF.Items.Count-1  do
    begin
      myBtnCaption:=AF.Items.Strings[i];
      self.CreatepicPagesheetdt(mybtncaption);
    end;
end;
      //创建page上的sheet;
Procedure TForm2.CreatepicPagesheetdt( BtnCaption:string) ;
var mybstabsheet:TTabSheet  ;
    i:integer ;
begin
    i:=self.Page1.PageCount+1;
      mybstabsheet:=TTabSheet.Create(self) ;
      with mybstabsheet do
       begin
          mybstabsheet.Font.Color:=clblue;
          Parent:=self.Page1;
          PageControl:=self.Page1;
          Caption:=BtnCAption;
          Name:='Tbtn'+inttostr(i);
       end ;
end;求救啊?

解决方案 »

  1.   

    adocon:=inif.ReadString('设置','con',''); 
    ado.ConnectionString=adocon; 
    1、先要确保你INI里的字符串是可以连通的,然后跟踪到第1句,看看adocon是否付值成功了!
    2、ado.ConnectionString:=adocon; //少了一个:
      

  2.   


    adocon:=inif.ReadString('设置','con',''); 
    ado.ConnectionString := adocon; 
    ado.Connected := True;<------------------
      

  3.   

    //少了一个:号啊!
    ado.Connected := True;//这句不加也可以的!