var
 sUser,sPassword : string;
...
sUser := Fini.ReadString('info','user','');
sPassword := Fini.ReadString('info','password','');

解决方案 »

  1.   

    参考一下TINIFILE的帮助 。
      

  2.   

    var
    Ini_mc      :TInifile;
    sUser,sPassword : string;
    begin
      Ini_mc := TIniFile.Create('c:\iniinfo.ini');
      sUser := ini_mc.ReadString('info','user','');
      sPassword := ini_mc.ReadString('info','password',''); 
    end;
      

  3.   

    如果user、password等号后面的没有值,语句就取默认值为空,如果要设定默认值,读取语句就要写:
    sUser := ini_mc.ReadString('info','user','Admin');//默认为admin
    sPassword := ini_mc.ReadString('info','password','Password'); //密码默认为password  
      

  4.   

    user、password两个都有值,但取得值还是空值!我不知道为什么!
      

  5.   

    TInifile;的对象成功创建了没有?
      

  6.   

    我明白了,你是用的Windows2000的操作系统。IniFIle的默认路径不是当前路径,而是系统路径。用你的Ini文件名搜索一下,看看有几个这样的文件,试着改改系统文件夹下的文件!
      

  7.   

    或者可以把Ini文件的路径写完全!也可以解决问题!
      

  8.   

    我用的是windows 2000 server!
      

  9.   

    那可以按照lkwyong(王勇)的方法,把
    Ini_mc := TIniFile.Create('c:\iniinfo.ini');这一句中的文件名和路径写全试试