|
#1
|
|||
|
|||
List View
Помогите пожалуйста разобраться с сохранением и открытием файлов для 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 никаких строк не добавляется... Помогите осуществить сохранение и открытие файла При старте программы и При ее завершении! |
#2
|
||||
|
||||
У меня без ошибок и сохранилось и загрузилось на данном коде.
|
#3
|
||||
|
||||
Надо файл закрывать
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. Последний раз редактировалось The Shadow, 08.05.2008 в 17:07. |