Разыменование неверного указателя

[Paha1977]

Спасибо большое. Теперь понятно. Массив указателей никак не привязывается к индексам массива, на который ссылается.
А можно каким-либо образом сделать, чтобы ptCol[28] указывал на GVL.astCol_5[28], а ptCol[49] - на GVL.astCol_8[49]?

[Евгений Кислов]

Спасибо большое. Теперь понятно. Массив указателей никак не привязывается к индексам массива, на который ссылается.
А можно каким-либо образом сделать, чтобы ptCol[28] указывал на GVL.astCol_5[28], а ptCol[49] - на GVL.astCol_8[49]?

Через ARRAY [..] OF POINTER TO circuit.
Но, на мой взгляд, это выглядит довольно сомнительным решением.
Впрочем, саму задачу вы так и не описали, так что сложно о чем-то рассуждать.

[Paha1977]

Через ARRAY [..] OF POINTER TO circuit.

Спасибо за подсказку. Так работает.

PROGRAM PLC_PRG
VAR
	iNC :INT; //номер контура
	iSD :INT; //номер элемента массива в SlaveData
	
	ptCol :ARRAY [28..54] OF POINTER TO circuit;
	ptrCol :ARRAY [28..54] OF POINTER TO circuit_ret;

	astCol_5 :ARRAY [28..37] OF circuit;
	astCol_8 :ARRAY [49..54] OF circuit;
	
	stSlaveData: slave_data;
END_VAR

VAR RETAIN
	astrCol_5 :ARRAY [28..37] OF circuit_ret;
	astrCol_8 :ARRAY [49..54] OF circuit_ret;
END_VAR

iSD:=0;
FOR iNC:=28 TO 37 DO
	ptCol[iNC]:= ADR(astCol_5[iNC]);
	ptrCol[iNC]:= ADR(astrCol_5[iNC]);
	PLC_PRG.CONTR_CIRC();
END_FOR

FOR iNC:=49 TO 54 DO
	ptCol[iNC]:= ADR(astCol_8[iNC]);
	ptrCol[iNC]:= ADR(astrCol_8[iNC]);
	PLC_PRG.CONTR_CIRC();
END_FOR

Разыменование теперь, естественно, выглядит иначе.

rInput:=ptCol[iNC]^.rOutInPercent

Это не задача. Это выбранное вами решение.
Но, в любом случае, не проще ли в структуру добавить поле с "номером физической установки", и сделать прозрачную нумерацию массивов? (с 0 или 1)

Согласен, когда речь идет о разовом проекте. Когда таких шкафов более 60 и различаются они только количеством и порядковыми номерами устройств, а алгоритмы для каждого одинаковы, есть желание задуматься об удобстве и унификации.