Динамическое создание массива

← →
NOD (2003-10-11 00:06) [0]

Может вопрос не по теме, но нужно в ТР7 создать динамический массив. Вот мой код, но там куча ошибок- я уже с этими указателями в конец запутался, но суть такая

uses crt;
type
ar=array[0..0] of integer;
a=^ar;
var
p:pointer;
begin
getmem(p,7);
a(p^)[3]:=333;
writeln(a(p^)[3]);
freemem(p,7);
write(maxavail);
readln;
end.

← →
Ломброзо Цезарь (2003-10-11 01:08) [1]

Это на Delphi, но под паскаль должно подойти

type
TLargeArr = array[0..$FFFF] of integer;
PLargeArr = ^TLargeArr;
var
ppArr: PLargeArr;
begin
GetMem(ppArr, 1000 * sizeof(integer)); (* в TP - 1000 * 2 *)
ppArr^[100] := 2;
Writeln(ppArr^[100]);
FreeMem(ppArr);
readln;
end.

← →
Е-Моё имя (2003-10-11 01:19) [2]

> Ломброзо Цезарь ©

гм...
а почему здесь? ;))

← →
Ломброзо Цезарь (2003-10-11 01:28) [3]

Хобби, знаете ли...
Не все ж с поц иентами беседовать...

← →
Е-Моё имя (2003-10-11 01:33) [4]

;-))))
затейник, однако...

Динамическое создание массива Найти похожие ветки