работа с 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]

Спасибо.

Добавляй в TObjectList.

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