Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Янв

Использование нетипизированного указателя для передачи массива

Posted by Chas under Delphi

Аватар

Лучше более безопасным способом MakeArray1

type TMyArray = array of Integer;

     PMyArray = ^TMyArray;
procedure MakeArray(P: pointer);

var p1: PMyArray;

    i,n: integer;

begin

  p1:=p;

  n:=50+random(101);

  SetLength(p1^,n);

  for i:=0 to n-1 do p1^:=random(101);

end;
procedure MakeArray1(var MyArray: TMyArray);

var i,n: integer;

begin

  n:=50+random(101);

  SetLength(MyArray,n);

  for i:=0 to n-1 do MyArray:=random(101);

end;
var a: array of integer;

    b: TMyArray;
procedure TForm1.Button1Click(Sender: TObject);

begin

  Randomize;

  MakeArray(Addr(a));

  Label1.Caption:=IntToStr(High(a));

  MakeArray1(b);

  Label2.Caption:=IntToStr(High(b));

end;