如何根据ListView 写ini文件
怎么根据ListView 保存成ini文件
例如 ID 名称
1 我
2 你
保存成
[1]
name=我
[2]
name=你
本人菜鸟 哪位大牛告诉下谢谢。。
[解决办法]
- Delphi(Pascal) code
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls,IniFiles, StdCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ini:TIniFile;
i:integer;
begin
ini := TIniFile.Create('c:\my.ini');
for i:=0 to ListView1.Items.Count - 1 do
begin
ini.WriteString(IntToStr(i+1),'name',ListView1.Items[i].SubItems.Strings[0]);
end;
end;
end.