← →Набережных С.
(2002-03-10 21:33)
[16]
> Vladimir1 (10.03.02 20:12)
Лучше бы показал код. 6 мегабайт немного, совсем не много.
Вот этот код нормально работает, а выделяется почти 100 мегабайт. А файл больше 7 мег.
Fs:TFileStream;
Arr:array of byte;
begin
Fs:=TFileStream.Create("C:\Program Files\Borland\CBuilder5\Lib\vcl50.csm",fmOpenRead);
try
SetLength(arr,100000000{Fs.Size+1});
try
Fs.Read(Arr[0],Fs.Size);
Memo1.Lines.Text:=PChar(Copy(Arr,$2000,300));
finally
SetLength(Arr,0);
end;
finally
Fs.Free;
end;
end;
Динамические массивы в Дельфи Найти похожие ветки
← →