Сохранение в ini
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
ini: TIniFile;
begin
ini := TIniFile.Create('C:/delme.ini');
ini.WriteInteger('Header','ColumnsCount',ListView1 .Columns.Count);
ini.WriteInteger('Header','ItemsCount',ListView1.I tems.Count);
for i := 0 to ListView1.Columns.Count - 1 do
begin
ini.WriteString('Header','Column ' + IntToStr(i),ListView1.Column[i].Caption);
end;
for j := 0 to ListView1.Items.Count - 1 do
begin
for i := 0 to ListView1.Columns.Count - 1 do
begin
if i = 0 then
ini.WriteString('Column ' + IntToStr(i),'Item ' + IntToStr(j),ListView1.Items[j].Caption)
else
ini.WriteString('Column ' + IntToStr(i),'Item ' + IntToStr(j),ListView1.Items[j].SubItems[i-1]);
end;
end;
end;
Надо проверить - писал на скорую руку
|