Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c