Кто-нибудь может дать коды к большим и маленьким буквам кириллицы. А то я не пойму. Как реализуется написанная процедура. Не мною. Кем-то. В этом коде не не понятно вот что:
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;