>>то имитация динамического массива с GetMem/FreeMem под капотом.
это и есть классический чассив. а ты про что подумал?
Модератор: Модераторы
zub писал(а):а ты про что подумал?
zub писал(а):Классический=статический в моей голове))
zub писал(а):Выделение памяти, доступ через индексацию указателя - тот же статический массив
program Project1;
const
ElemCount=1000;
type
PMyArr=^TMyArr;
TMyArr=array [0..0] of Integer;
var
PArr:PMyArr;
i:Integer;
begin
PArr:=GetMem(ElemCount*SizeOf(TMyArr[0]));
for i:=0 to ElemCount-1 do
PArr^[i]:=i;
for i:=0 to ElemCount-1 do
WriteLn(PArr^[i]);
Freemem(PArr);
readln;
end.
program Project1;
const
ElemCount=1000;
type
TMyArr=array [1..ElemCount] of Integer;
var
Arr:TMyArr;
i:Integer;
begin
for i:=1 to ElemCount do
Arr[i]:=i;
for i:=1 to ElemCount do
WriteLn(Arr[i]);
readln;
end.
program Project1;
const
ElemCount=1000;
type
PMyArr=^Integer;
var
PArr:PMyArr;
i:Integer;
begin
PArr:=GetMem(ElemCount*SizeOf(PMyArr^));
for i:=0 to ElemCount-1 do
PArr[i]:=i;
for i:=0 to ElemCount-1 do
WriteLn(PArr[i]);
Freemem(PArr);
readln;
end.
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 63