Генерация Штрихкода

[Alex Cones]

'а': result:=1;
'б': result:=2;
'в': result:=3;
'г': result:=4;
'д': result:=5;
'е': result:=6;
'ё': result:=7;

А не проще вполовину сократить, используя ASCII коды?

[ОДИНОЧЕСТВО В СЕТИ]

тогда штрихкод будет длиннее это раз
и как обозначать символ это личное дело ТС это два
и наконец три- это просто пример

[Alex Cones]

тогда штрихкод будет длиннее это раз

С чего это вдруг?

Case c of
...
'a': result:=34;
'b': result:=35;
'c': result:=36;
'd': result:=37;
'e': result:=38;
'f': result:=39;
'g': result:=40;
'h': result:=41;
'i': result:=9+33;
'j': result:=10+33;
'k': result:=11+33;
'l': result:=12+33;
'm': result:=13+33;
'n': result:=14+33;
'o': result:=15+33;
'p': result:=16+33;
'q': result:=17+33;
'r': result:=18+33;
's': result:=19+33;
't': result:=20+33;
'u': result:=21+33;
'v': result:=22+33;
'w': result:=23+33;
'x': result:=24+33;
'y': result:=25+33;
'z': result:=26+33;

Заменяем на

Case Ord(C) of
...
97..122:Result:=Ord(C)-63;

Уменьшается только функция.
Аналогично русские символы. У меня сейчас перед глазами нет второй части Аск таблицы.

и как обозначать символ это личное дело ТС это два

Да пусть хоть логарифмы ставит, только обобщенной функцией это будет удобней, чем 223 символа вручную вбивать.

[ОДИНОЧЕСТВО В СЕТИ]

как обозначать символ это личное дело ТС

вот на это тоже обратите внимание