我想用delphi做一个系统,做一个配置文件sys.ini作为用户登录时的认证文件,望大侠们帮帮忙!!

解决方案 »

  1.   

    uses inifiles;var panini:tinifile;  panini := TIniFile.Create('chddd.ini');//里面是文件路径
      

  2.   

    ini文件格式[conf]
    name=aaa
    other=bb读取ini文件使用Tinifile类
      

  3.   


    procedure TForm1.CardSetIni(Sender: TObject);//创建+写信息 
    var
      File_name:  TIniFile;
      begin
      GetDir(0,AppPath);
      File_name:=TIniFile.Create(AppPath+'\Sys.ini');
      Try
      File_name.WriteString('存储的小节名称','字段名称',ComboBox1.Text);
      File_name.WriteString('存储的小节名称','字段名称',Edit1.Text);
      File_name.WriteString('存储的小节名称','字段名称',ComboBox2.Text);
      File_name.WriteString('存储的小节名称','字段名称',ComboBox3.Text);
      finally
        File_name.Free;
        File_name:=nil;
      end;
    procedure TForm1.Create(Sender: TObject);//读文件内容
    var
       ini: TIniFile;
    begin   GetDir(0,AppPath);
       ini:=TIniFile.Create(AppPath+'\Sys.ini');
       try
       Configstr:=ini.ReadString('存储的小节名称','字段名称','');
       finally
         ini.Free;
       end;