[ApplicatiOn]

Помогите пожалуйста разобраться с сохранением и открытием файлов для List View.

Вот код на открытие (OnFormCreate):

Код:

begin
ListView1.Items.Clear;
AssignFile(f, 'hete.ttp ');
Reset(f);
while not Eof(f) do
with ListView1.Items.Add do
begin
Readln(f, tmp);
Caption:=tmp;
Readln(f, tmp);
SubItems.Add(tmp);
Readln(f, tmp);
SubItems.Add(tmp);
end;

Вот на сохранение (OnClose):

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: Integer;
f: TextFile;
begin
AssignFile(f, 'hete.ttp');
Rewrite(f);
for i:=0 to ListView1.Items.Count - 1 do
begin
Writeln(f, ListView1.Items.Item[i].Caption);
Writeln(f, ListView1.Items.Item[i].SubItems[0]);
Writeln(f, ListView1.Items.Item[i].SubItems[1]);
end;
CloseFile(f);
end;

Проблема в том что при закрытии программы выдается ошибка O/I error 32. А при открытии в ListView никаких строк не добавляется...

Помогите осуществить сохранение и открытие файла При старте программы и При ее завершении!

[Aristarh Dark]

У меня без ошибок и сохранилось и загрузилось на данном коде.

[The Shadow]

Надо файл закрывать