ini写配置信息 列表框

 

 

 

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 

type 
  TForm1 = class(TForm) 
    ListBox1: TListBox; 
    Button1: TButton; 
    Button2: TButton; 
    Memo1: TMemo; 
    Button3: TButton; 
    Button4: TButton; 
    procedure Button3Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 
 uses IniFiles; 
{$R *.dfm} 

var iniPath:string;//ini路径 
    fName:string;  //ini的文件名 
procedure ListBoxToINI(const AINIFile, ASection: string; ListBox: TListBox); 
var 
  INI: TINIFile; 
  I: Integer; 
begin 
  INI := TINIFile.Create(AINIFile); 
  try 
    INI.EraseSection(ASection); 
    INI.WriteInteger(ASection, 'Count', ListBox.Items.Count); 
    for I := 0 to ListBox.Items.Count - 1 do 
    begin 
      INI.WriteString(ASection, 'Item' + IntToStr(I), ListBox.Items[I]); 
    end; 
  finally 
    INI.Free; 
  end; 
end; 

procedure INIToListBox(const AINIFile, ASection: string; ListBox: TListBox); 
var 
  INI: TINIFile; 
  I, Count: Integer; 
begin 
  INI := TINIFile.Create(AINIFile); 
  try 
    Count := INI.ReadInteger(ASection, 'Count', 0); 
    for I := 0 to Count - 1 do 
    begin 
      ListBox.Items.Add(INI.ReadString(ASection, 'Item' + IntToStr(I), '0')); 
    end; 
  finally 
    INI.Free; 
  end; 
end; 

{write ini} 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  fName:='A'; 
  iniPath:=GetCurrentDir()+format('\%s.ini',[fName]); 
  ListBoxToINI(iniPath,'列表框1',ListBox1); 
end; 

{read ini} 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  fName:='A'; 
  iniPath:=GetCurrentDir()+format('\%s.ini',[fName]); 
  INIToListBox(iniPath,'列表框1',ListBox1); 
  memo1.Text:=iniPath; 
end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
 ListBox1.Items:=memo1.Lines; 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
begin 
  listbox1.Clear; 
end; 

end.

通过 Wiz 发布

附件列表