Преобразование в число (Delphi)

[SERG1980]

Сообщение от Utkin

Это уже обсуждалось. Напомню А и а должны иметь один код, а не 2...

А кто мешает использовать использовать ф-ию предложенную в посте №7.
Конечно как говорится хозяин барин, только зачем огород из этих массивов
когда и без них можно обойтись

[Serge_Bliznykov]

так не проще?

const
 sLetter: string ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
  i: integer;
begin
  i:=Pos(AnsiLowerCase(Copy(Trim(Edit1.text),1,1)), sLetter) ;
  if i<1 then showmessage('Нет такой буквы')
  else showmessage(IntToStr(i));
end;

[wm_leviathan]

Сообщение от SERG1980

А если посмотреть на кодировку символов?

ord('A')-191//=1;
ord('Б')-191//=2

тогда не надо массивов

ради интереса ord('Ё')-191//=-23; хотя должно быть 7. все таки буква "Ё" есть в русском алфавите.

[SERG1980]

Да верно про ё я не подумал

[Utkin]

Да и где огород? Алгоритм описан во втором посте. А за Вашу идею (даже если без буквы ё) препод по голове не погладит. Ладно если он сам еще понимает что это, а так сразу незачет . Спалилась, с инета списала .