юзал поиск, но подобной темы не нашел, если уже существует, просьба кинуть ссылку, а не сапог.
Проблема в следующем:
в одну процедуру есть 9 входов с разных компонентов, соответственно с разными переменными Sender.
Необходимо в зависимости от Sender вызвать соответствующую процедуру при клике по пункту popmenu...
Цитата:
при вызове процедуры клика в popmenu переменная Sender заменяется на MenuItem, и это понятно.
условимся, что решили передать в эту процедуру переменную перечисляемого типа на основе sender'а 'материнской' процедуры
|
определен тип и переменная этого типа:
Код:
type
TSender=
(
Sformwork,
StabArray,
Stabmatrix,
StabString,
Spanel1,
Spanel4,
Spanel2,
Spanel3,
Spanel5
);
var
popsender:TSender;
хотелось бы в процедуре, при передаче параметра Sender, скажем, равным либо formwork,TabArray и пр. задать переменной popsender соответственно значение Sformwork,STabArray и пр.
Есть ли для этого путь в обход 9 операторов if..then либо вложенных if..then..else?