读书人

怎么根据ListView 写ini文件

发布时间: 2012-03-29 12:53:12 作者: rapoo

如何根据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.

读书人网 >.NET

热点推荐