[asm_viator]

Сохранение в ini

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create('C:/delme.ini');
  ini.WriteInteger('Header','AmountOfItems',ListView1.Items.Count);
  for j := 0 to ListView1.Items.Count - 1 do
  begin
    ini.WriteString(IntToStr(j),ListView1.Column[0].Caption,ListView1.Items[j].Caption);
    ini.WriteInteger(IntToStr(j),ListView1.Column[1].Caption,StrToInt(ListView1.Items[j].SubItems[0]));
    ini.WriteInteger(IntToStr(j),ListView1.Column[2].Caption,StrToInt(ListView1.Items[j].SubItems[1]));
  end;
  ini.Free;
end;

Как Вам этот? Предыдущий код, по моему мнению, был более гибким...