Показать сообщение отдельно
  #1  
Старый 07.09.2012, 10:20
Stal12 Stal12 вне форума
Прохожий
 
Регистрация: 07.09.2012
Сообщения: 1
Репутация: 10
По умолчанию Можно ли решить такую задачу на дельфи?

Есть массивы константы:
WaitModem:array[0..1]of string=('Нет','Есть');
SyncTx:=array[0..2]of string=('Отсутствует','Внутренняя','Внешняя');
И т.п.

Как передать в подпрограмму такой массив, если у них различная длина?
Подпрограмма должна делать примерно следующее:
возвращает строку по нужному индексу:
Result:=NameArray[n]; //например - Внутренняя

Решение с открытыми массивами работает, но овчинка выделки не стоит.
Надо каждый раз задавать длину массива, инициализировать и т.п.
В итоге, куча "лишнего" текста... По длине получается, выгоднее иметь кучу специализированных подпрограмм.
Ответить с цитированием