Помогите пожалуйста разобраться с сохранением и открытием файлов для 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 никаких строк не добавляется...
Помогите осуществить сохранение и открытие файла При старте программы и При ее завершении!