[Kaka]

Что-то меня глючит... Писал-писал прогу, и вдруг бац! И я понял, что не знаю как вычислить порядковый номер буквы в алфавите.
Например:
а = 1; b = 2; c = 3... etc
и русскими:
а = 1; б = 2; в = 3 ... итд

[Decoding]

Запиши алфавит в массив

a: array[1..33] of char;

a[1] := 'а';
и т.д.

и работай с этим массивом.

[Kaka]

Этот вариант я знаю, но помоему это глупо. Мот кто даст более умный совет???

[Ross]

Поэксперементируй с процедурой Ord.

[eXplorer]

Я тоже канечно глупо придумал
но так можно...

например:

Код:

//для русского:
edit1.Text:=inttostr(ord('а')-223);

//и для английского:
edit2.Text:=inttostr(ord('a')-96);

[roamer]

Для английского может быть и типа этого пойдет :

Код:

function GetOrderChar(Ch : char) : byte;
Var
  S : string;
begin
  S:=Ch;
  S:=AnsiUpperCase(S);
  Ch:=S[1];
  Result:=ORD(Ch)-ORD('A')+1;
end;

Но в общем случае (с заранее неизвестной кодировкой и алфавитом) - проблематично.