WriteMemoItems()ReadMemoItems() IniFiles

uses IniFiles;

 

{写入Memo中的项目到ini中}
//调用   WriteMemoItems('settings.ini','MEMO',Memo1);
procedure  WriteMemoItems ( const  AINIFile ,  ASection :  string ;  MEMO :  TMemo );
var
   INI :  TINIFile ;
   iniPath : string ; //ini路径
   I :  Integer ;
begin ;
   iniPath := ExtractFilePath ( Application . ExeName )+ AINIFile ;
   INI  :=  TINIFile . Create ( iniPath );
   try
     INI . EraseSection ( ASection );
     INI . WriteInteger ( ASection ,  'Count' ,  MEMO . Lines . Count );
     for  I  :=  0  to  MEMO . Lines . Count  -  1  do
     begin
       INI . WriteString ( ASection ,  'Item'  +  IntToStr ( I ),  MEMO . Lines [ I ]);
     end ;
   finally
     INI . Free ;
   end ;
end ;


{读取ini中的信息到Memo中}
//调用   ReadMemoItems('settings.ini','MEMO',Memo1);
procedure  ReadMemoItems ( const  AINIFile ,  ASection :  string ;  MEMO :  TMemo );
var
   INI :  TINIFile ;
   iniPath : string ;
   I , count :  Integer ;
begin
   iniPath := ExtractFilePath ( Application . ExeName )+ AINIFile ;
   INI  :=  TINIFile . Create ( iniPath );
   try
     MEMO . Clear ;
     Count  :=  INI . ReadInteger ( ASection ,  'Count' ,  0 );
     for  I  :=  0  to  Count  -  1  do
     begin
       MEMO . Lines . Add ( INI . ReadString ( ASection ,  'Item'  +  IntToStr ( I ),  '0' ));
     end ;
   finally
     INI . Free ;
   end ;
end ;

粘贴自： < ">http://www.cnpack.org/ >

 

通过 为知笔记 发布

附件列表