Скачать: CL | DM;

работа с FileStream   Найти похожие ветки 

← →
аматор ©   (2005-12-24 16:18) [0]

Привет...

Моя прога берёт имена файлов из бокса и грузит в поток (блокируя файлы). Мне нужно освободить файлы в определенный момент. Метод Free работает только когда задан один файл, при большем количестве прога не освобождает переменную fs. Как мне разблокировать файлы.

var fs : FileStream;

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
   for i := 0 to ListBox1.Items.Count-1 do begin
       fs := TFileStream.Create(ListBox1.Items.Strings[i] , fmOpenWrite);
   end;
end;

---

← →
Eraser ©   (2005-12-24 19:03) [1]

> аматор ©   (24.12.05 16:18)


> при большем количестве прога не освобождает переменную fs.


> for i := 0 to ListBox1.Items.Count-1 do begin
>        fs := TFileStream.Create(ListBox1.Items.Strings[i]
> , fmOpenWrite);
>    end;

А как ты хотел? В fs записывается указатель на последний созданый TFileStream. В цикле добавляй указатели в какой-то список, а потом освобождай по этому списку.

---

← →
аматор ©   (2005-12-28 08:58) [2]

Спасибо.

---

← →
Amoeba ©   (2005-12-28 14:24) [3]

Добавляй в TObjectList.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.109 c