30.05.2010, 12:27
|
 |
I Like it!
|
|
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
|
|
Объявление алфавита:
Код:
const
MyAlphabet: array [Char] of Char = (...'a', 's',....);
Использование:
Код:
s := MyAlphabet[InputSymbol];
Думаю, суть ясна  |