Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.23;
Скачать: 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 вся ветка

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
14-74381
MBo
2003-10-03 06:50
2003.10.23
Планы партии - планы народа.


3-74019
kostik78ua
2003-10-03 11:26
2003.10.23
Експорт MSSQL->Interbase


14-74467
TurburatoR
2003-10-03 12:25
2003.10.23
Обработка события


1-74231
MakNik
2003-10-09 15:07
2003.10.23
CRC-код файла


14-74480
wicked
2003-10-02 19:37
2003.10.23
CodeGuard.....