BlockRead в массив...

← →
tovSuhov © (2002-02-06 11:56) [0]

Люди!!! Пол-года программировал на С++, паскаль забыл...
Как это делается:
создать динамический массив из N элементов типа char, скопировать в него блок байтов(размером тоже N, через BlockRead)из файла filename с позиции i...
Книжки под рукой нет...

← →
Polevi © (2002-02-06 12:57) [1]

см Help на GetMem - там есть нужный тебе пример

← →
PVOzerski © (2002-02-06 13:16) [2]

var
n,i:integer;
f:file;
type
tA=array[1..1]of char;
var
A:^tA;
begin
writeln("input N,I");
readln(N,I);
assign(f,"vasya.dat");
reset(f,1);
getmem(A,N*.sizeof(char));
seek(f,I);
blockread(f,A^,N);
....
close(f);
freemem(A,N*.sizeof(char));
end.

Спасибо! Посмотрел Help на GetMem...

BlockRead в массив... Найти похожие ветки