ini写配置信息

//列表框

//文本框

//编辑框

//组合框

//单选框

//检查框

 

unit Unit1; 

interface 

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

type 
  TForm1 = class(TForm) 
    ListBox1: TListBox; 
    Button1: TButton; 
    Button2: TButton; 
    Memo1: TMemo; 
    Button3: TButton; 
    Button4: TButton; 
    ComboBox1: TComboBox; 
    Edit1: TEdit; 
    CheckBox1: TCheckBox; 
    CheckBox2: TCheckBox; 
    RadioGroup1: TRadioGroup; 
    ComboBox2: TComboBox; 
    Button5: TButton; 
    Button6: TButton; 
    Button7: TButton; 
    procedure Button3Click(Sender: TObject); 
    procedure Button4Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure Button5Click(Sender: TObject); 
    procedure Button6Click(Sender: TObject); 
    procedure ComboBox1Change(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; 

procedure MemoToINI(const AINIFile, ASection: string; Memo: TMemo); 
var 
  INI: TINIFile; 
  I: Integer; 
begin 
  INI := TINIFile.Create(AINIFile); 
  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; 

procedure INIToMemo(const AINIFile, ASection: string; Memo: TMemo); 
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 
      Memo.Lines.Add(INI.ReadString(ASection, 'Item' + IntToStr(I), '0')); 
    end; 
  finally 
    INI.Free; 
  end; 
end; 

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

{read ini} 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  fName:=ComboBox1.Text; //// 
  iniPath:=GetCurrentDir()+format('\%s.ini',[fName]); 
  ListBox1.Clear;//// 
  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; 




procedure TForm1.FormCreate(Sender: TObject); 
begin 
   Button6.Click; 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  ///角色名<>空 
   Button5.Click; 
end; 

procedure TForm1.Button5Click(Sender: TObject); 
var MyIniFile: TIniFile; 
begin 
  ////////////////////INI////////////////////////// 
    fName:=ComboBox1.Text; //// 
    iniPath:=GetCurrentDir()+format('\%s.ini',[fName]); 
    MyIniFile := TIniFile.Create (iniPath); 
    try 
      //////////////////////////////////////////// 
      MyIniFile.WriteInteger ('Settings', 'Top', form1.Top); 
      MyIniFile.WriteInteger ('Settings', 'Left', form1.Left); 
      //////////////////////////////////////////// 
      MyIniFile.WriteString('Settings', 'Edit1', Edit1.text); 
      MyIniFile.WriteString('Settings', 'ComboBox2', ComboBox2.text); 
      MyIniFile.WriteBool('Settings', 'CheckBox1', CheckBox1.Checked); 
      MyIniFile.WriteBool('Settings', 'CheckBox2', CheckBox2.Checked); 
      MyIniFile.WriteInteger('Settings', 'RadioGroup1', RadioGroup1.ItemIndex); 
     /////////////ThisIsListBox//////////////////////// 
       ListBoxToINI(iniPath,'列表框1',ListBox1); 

       MemoToINI(iniPath,'文本框',Memo1); 
     /////////////ThisIsListBox//////////////////////// 
    Finally 
      MyIniFile.Free; 
    end; 
  ////////////////////INI////////////////////////// 
end; 

procedure TForm1.Button6Click(Sender: TObject); 
var  MyIniFile: TIniFile; 
begin 
  ////////////////////INI////////////////////////// 
    fName:=ComboBox1.Text; //// 
    iniPath:=GetCurrentDir()+format('\%s.ini',[fName]); 
    MyIniFile := TIniFile.Create(iniPath); 
    try 
      //////////////////////////////////////////// 
      form1.Top := MyIniFile.ReadInteger('Settings','Top',form1.Top); 
      form1.Left:= MyIniFile.ReadInteger('Settings','Left',form1.Left); 
      //////////////////////////////////////////// 
      Edit1.text:=MyIniFile.ReadString('Settings', 'Edit1', Edit1.text); 
      ComboBox2.text:=MyIniFile.ReadString('Settings', 'ComboBox2', ComboBox2.text); 
      CheckBox1.Checked:=MyIniFile.ReadBool('Settings', 'CheckBox1', CheckBox1.Checked); 
      CheckBox2.Checked:=MyIniFile.ReadBool('Settings', 'CheckBox2', CheckBox2.Checked); 
      RadioGroup1.ItemIndex:=MyIniFile.ReadInteger('Settings', 'RadioGroup1', RadioGroup1.ItemIndex); 
      /////ThisIsListBox////////////////////////////////// 
       ListBox1.Clear;//// 
       INIToListBox(iniPath,'列表框1',ListBox1); 
       Memo1.Clear; 
       INIToMemo(iniPath,'文本框',Memo1); 
      /////ThisIsListBox////////////////////////////////// 
    Finally 
      MyIniFile.Free; 
    end; 
  ////////////////////INI////////////////////////// 
   
end; 

procedure TForm1.ComboBox1Change(Sender: TObject); 
begin 
  //角色名改变后才读取 
  //角色名<>空 
  //角色的Hpmin<>0 
  if ComboBox1.Text<>'' then Button6.Click; 
end; 

end.

 

 

 

 

 

通过 Wiz 发布

附件列表