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/ >

 

通过 为知笔记 发布

附件列表