procedure abcde;
var
  MyIniFile: TIniFile;
  apath:string;
begin
  MyIniFile := TIniFile.Create('ABC.INI');//注意要写完整的路径
  with MyIniFile do
  begin
      apath := ReadString('db', 'path', '');
  end;
  MyIniFile.Free;
end;

解决方案 »

  1.   

    请测试
    database1.params['path']:=bb;
      

  2.   

    database1.params['path']:=bb;绝对是错误的!
    不错,我是象上面这么写的,现详细写一下:procedure abcde;
    var
      MyIniFile: TIniFile;
      apath:string;
    begin
      MyIniFile := TIniFile.Create('ABC.INI');
      with MyIniFile do
      begin
          apath := ReadString('db', 'path', '');
          database1.params.values['path']:=apath; //这句话出现了问题,通是通过了,但先有access violation +一串地址的错误,然后才正常运行
      end;
      MyIniFile.Free;
    end;另外,我还用了如下的办法:
    procedure abcde;
    var
      MyIniFile: TIniFile;
      apath:Tstrings;
    begin
      MyIniFile := TIniFile.Create('ABC.INI');
      with MyIniFile do
      begin
          apath:=Tstring.create;
          apath.add(ReadString('db', 'path', ''));
          database1.params.addstrings(apath); //这句话也出现了问题,通是通过了,但先有abstract error,然后才正常运行
      end;
      MyIniFile.Free;
    end;
      

  3.   

    database1.params.add('path='+MyIniFile.ReadString('db', 'path', ''));