| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа с FileStream
аматор © (2005-12-24 16:18:00)Привет...
Моя прога берёт имена файлов из бокса и грузит в поток (блокируя файлы). Мне нужно освободить файлы в определенный момент. Метод 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;
Amoeba (2005-12-28 14:24:00) [1]Добавляй в TObjectList.
аматор (2005-12-28 08:58:00) [2]Спасибо.
Eraser (2005-12-24 19:03:00) [3]
> аматор © (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. В цикле добавляй указатели в какой-то список, а потом освобождай по этому списку.
| |
