[lawer]

Кто-нибудь может дать коды к большим и маленьким буквам кириллицы. А то я не пойму. Как реализуется написанная процедура. Не мною. Кем-то. В этом коде не не понятно вот что: stOut[k]:=Chr(ord('А') + ord(stOut[k]) - ord('а')); В самой процедуре перебирается весь алфавит кириллицы. Этой строкой вычиляется большая буква, соответствующая маленькой. Если буква а, то понятно, а если другая?

Код:

procedure UpString(stinp: String; var stOut: String);

var
k: Integer; 
begin
stOut := stinp;
for k := 1 to Length(stOut)  do
begin
stOut[k] := UpCase(stOut[k]);  
if stOut[k] >= 'à' then  
stOut[k] := 
Chr(ord('А') + ord(stOut[k]) - ord('а'));
if stOut[k]='ё' then
stOut[k] := 'Ё';  
end;
end;