| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

BlockRead в массив... [D6, Win2k]

tovSuhov ©   (2002-02-06 11:56:00) 

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

---

tovSuhov   (2002-02-06 14:31:00) [1]

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

---

PVOzerski   (2002-02-06 13:16:00) [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.

---

Polevi   (2002-02-06 12:57:00) [3]

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

---

Наверх