不用自己一个个字符读进来,再判断出关键字的吧?

解决方案 »

  1.   

    uses iniFiles;var
       test : TiniFiles;
       
    procedure TForm1.FormCreate(Sender: TObject);
    begin
        test := TIniFile.Create('filename');
        test.ReadString.........
    end;使用TINIFILES类,方法和属性简单明了,相信你自己可以解决。
      

  2.   

    uses Inifiles;var
      MyIniFile:TIniFile;procedure TForm1.FormCreate(Sender: TObject);
    begin
      MyIniFile:=TIniFile.Create('.\con.ini');
      param1:=MyIniFile.ReadString('System','param1','...');
      ...  
    end;
    con.ini[System]
    param1 = ...
    ....
      

  3.   

    在delphi编辑环境按下F1
    输入TInifile
    然后查看详细说明. :)
      

  4.   

    TINIFile的readstring和writestring两个函数可以搞定