Постоянный массив указателей на постоянный массив Delphi
указателей на постоянный массив данных типа int. Это нужно чтобы в каждом элементе
массива хранить статическую переменную (чтобы она жила по ходу всей программы).
Не подскажете как это сделать?
Начало кода приведено, мне нужно только объявление этого массива укаателей.
Код:
const
next_quest: integer = 0;
Id_var_A: array[1..29] of Integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
Pnext : array[1..29] of ^Integer = @Id_var_A ????;
next_quest: integer = 0;
Id_var_A: array[1..29] of Integer = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
Pnext : array[1..29] of ^Integer = @Id_var_A ????;
Заранее благодарю.
можно так, вроде прокатывает :)
Код:
const
next_quest: integer = 0;
Id_var_A: array[1..4] of Integer = (89,61,2,3);
Pnext : array[1..4] of ^Integer = (@Id_var_A[1], @Id_var_A[2], @Id_var_A[3], @Id_var_A[4]);
var
// Pnext : array[1..4] of ^Integer;// absolute Id_var_A;
next_quest: integer = 0;
Id_var_A: array[1..4] of Integer = (89,61,2,3);
Pnext : array[1..4] of ^Integer = (@Id_var_A[1], @Id_var_A[2], @Id_var_A[3], @Id_var_A[4]);
var
// Pnext : array[1..4] of ^Integer;// absolute Id_var_A;