Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.028 c
2-1136673586
KvORubin
2006-01-08 01:39
2006.01.22
Мастера ХЕЛП !!! Как получить список имён файлов из каталога???


4-1131624560
Lenusia
2005-11-10 15:09
2006.01.22
Символы с шифтом (например, @) через PostMessage


2-1136536500
TBeginner
2006-01-06 11:35
2006.01.22
Замена текста в файлах каталога


14-1135724496
NIKEL
2005-12-28 02:01
2006.01.22
Всем привет! Я наконец то вернулся с армии:)


2-1136324641
Aleks
2006-01-04 00:44
2006.01.22
Управление другим приложением