TFileStream

← →
lead-in (2008-01-24 17:23) [0]

Доброго утра/дня/вечера.
Пишу вот что:

var map: array of byte; ... fstream_in := TFileStream.Create(path + "data_in.dat", fmOpenRead); fstream_out := TFileStream.Create(path + "d2.dat", fmOpenWrite); size_in := fstream_in.Seek(0, soFromEnd); fstream_in.Seek(0, soFromBeginning); fstream_out.Seek(0, soFromBeginning); SetLength(map, size_in); fstream_in.Read(map, size_in);

при этом вылезает ошибка "access violation..." (в сам массив ничего не записывается, файл изначально не пустой)

если просто поменять массив на статический...

var map: array [0..999] of byte; ... fstream_in := TFileStream.Create(path + "data_in.dat", fmOpenRead); fstream_out := TFileStream.Create(path + "d2.dat", fmOpenWrite); size_in := fstream_in.Seek(0, soFromEnd); fstream_in.Seek(0, soFromBeginning); fstream_out.Seek(0, soFromBeginning); SetLength(map, size_in); fstream_in.Read(map, size_in);

...то всё нормально! В чём тут может быть дело?
Заранее благодарен.

← →
Amoeba © (2008-01-24 17:34) [1]

Отладчиком пользоваться умеешь?

И еще почитай для начала в букваре про динамические массивы.

← →
clickmaker © (2008-01-24 17:35) [2]

size_in чему равен?

> fstream_in.Read(map[0], size_in);
>

TFileStream Найти похожие ветки