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

[I.nessa]

Здравствуйте.

Как сделать преобразование строки (в которой только буквы) в числовое значение, соответствующее порядковому номеру этой буквы в алфавите?

Т.е.

А=1, Б=2, В=3 etc

[Utkin]

Внесите весь алфавит в строку. Это эталон. Далее в цикле проходите по строке и ищете в ней Ваш символ - его местоположение и будет Вам указывать Вашу цифру.

[I.nessa]

Можно пример?

От А до В например

[Utkin]

x:='АБВГДЕЖ';
result:=-1;
for i:=1 to 7 do
begin
    if Symbol=x[i] then
    begin
        result:=i;
        Break;
    end;
end;

Здесь результат -1, в случае если буква не нашего алфавита буква (а например цифра).

[wm_leviathan]

на форме 1 кнопка и 1 Edit

procedure TForm1.Button1Click(Sender: TObject);
const
masAlf: array[1..33] of char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var
s: String;
i: integer;
begin
s:=Edit1.text;
for i := 1 to 33 do
if s=masAlf[i] then
showmessage(IntToStr(i));

end;

Разумеется для букв верхнего регистра расширяйте массив еще на 33 символа и добавляйте их.

[Utkin]

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

Разумеется для букв верхнего регистра расширяйте массив еще на 33 символа и добавляйте их.

Наверно лучше делать преобразование в один регистр - все-таки в алфавите 33 буковы, а не 66...

[wm_leviathan]

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

Наверно лучше делать преобразование в один регистр - все-таки в алфавите 33 буковы, а не 66...

можно и так добавим AnsiLowerCase

s:=AnsiLowerCase(Edit1.text);

теперь что "А" что "а" все равно 1 выдаст

[raxp]

хочу заметить, если стоит задача и расшифровки, то следует добавить разделители для чисел, либо исключить совпадающие комбинации, либо привести к одному основанию.

[SERG1980]

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

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

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

[Utkin]

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

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

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

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

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