Текущий архив: 2006.01.22;
Скачать: 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 вся ветка
Текущий архив: 2006.01.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
