Как сделать нормальный буффер

← →
Semen (2010-09-03 08:25) [0]

Есть код
var
buf:array[1..1000] of char;
begin
f:=TFileStream.Create("test",fmOpenRead);
f.Read(buf,1000);

Как сделать, чтобы Delphi в зависимоти,скажем, от параметра x создавала буффер этой длинны, в который можно писать данные f.Read.
Допустим сейчас мне не нуже буфер на 1000 символов, а нужен на 100,
а потом на 1.000.000.

← →
MBo © (2010-09-03 08:32) [1]

для char - string, а в общем случае - динамические массивы (Dynamic Arrays)

← →
Semen (2010-09-03 08:47) [2]

Динамический массив и строка не работают.
К примеру вот:
var
buf:array of char;
begin
SetLength(buf,1000000);
f:=TFileStream.Create("test",fmOpenRead);
f.Read(buf,1000);
Ничерта в буфер на пишет.

← →
Медвежонок Пятачок © (2010-09-03 08:53) [3]

Все пишет. Но пишет ровно туда, куда ты указал.

← →
Медвежонок Пятачок © (2010-09-03 08:55) [4]

а указал ты не туда, куда надо

← →
Semen (2010-09-03 09:05) [5]

а как надо?

f.Read(buf[0]

> Semen (03.09.10 08:25)

> Допустим сейчас мне не нуже буфер на 1000 символов, а нужен

В большинстве случаев буфер фиксированного
(оптимального) размера нормален.

--
Regards, LVT.

Как сделать нормальный буффер Найти похожие ветки