Увеличение массива процедур в рантайме

@Hretgir · Регистрация: 25.01.2012

Author24 — интернет-сервис помощи студентам

можно-ли увеличивать массив процедур в рантайме? для FPC пожалуйста.

@volvo · 10.04.2014, 20:04

Pascal

{$mode ObjFPC}
 
type
  TProc = procedure;
 
procedure proc1;
begin
  writeln('proc1');
end;
procedure proc2;
begin
  writeln('proc2');
end;
procedure proc3;
begin
  writeln('proc3');
end;
 
procedure another;
begin
  writeln('ha-ha-ha');
end;
 
type
  TProcArr = array of TProc;
 
var
  i : integer;
  arr : TProcArr;
begin
  setlength(arr, 3);
  arr[0] := @proc1;
  arr[1] := @proc2;
  arr[2] := @proc3;
 
  for i := low(arr) to high(arr) do arr[i];
 
  setlength(arr, Length(arr) + 1);
  arr[High(arr)] := @another;
 
  for i := low(arr) to high(arr) do arr[i];
  setlength(arr, 0);
end.

Bash

Running "d:\test\procvar.exe"
proc1
proc2
proc3
proc1
proc2
proc3
ha-ha-ha

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,465 Записей в блоге: 118
		1
	Увеличение массива процедур в рантайме 10.04.2014, 19:47. Показов 1115. Ответов 1 Метки нет (Все метки) можно-ли увеличивать массив процедур в рантайме? для FPC пожалуйста. 0

	10.04.2014, 20:04

Увеличение массива процедур в рантайме

Решение