ini文件的读写

 1.  function readstring(const section,ident,default:string):string;

     函数中section为节点名,IDENT为关键字,default为默认值.

      procedure writestring(const section,ident,default:string):string;

函数中section为节点名,IDENT为关键字,default为默认值.

  

 DEMO1(读):

     uses

               inifiles;

procedure TForm1.button1click(sender:Tobject);

var

   inifilename:string;

       myinifile:Tinifile;

begin

   inifilename:=extractfilepath(application.exename)+'myini.ini';

  myinifile:=Tinifile.create(inifilename);

  edit1.text:=myinifile.readstring('软件加密','加密内容','错误');

  myinifile.destroy;

end;

//====================================

 DEMO2(写):

     uses

               inifiles;

procedure TForm1.button1click(sender:Tobject);

var

   inifilename:string;

       myinifile:Tinifile;

begin

   inifilename:=extractfilepath(application.exename)+'myini.ini';

  myinifile:=Tinifile.create(inifilename);

  myinifile.writestring('软件加密','加密内容',edit1.text);

  myinifile.destroy;

end;