Как известно с кирилицей UpCase не пашет!
Итак! Исправте меня - нуба! )
text:= // это текст в неизвестном регистре!
procedure perevod;
begin
res := openResource('/baza.txt');
for pos:= 0 to length(text) do // 0-0-0-0-0-
begin
case:=getChar(text, pos);
if case='А'
then case='а';
if case='Б'
then case='б';
if case='В'
then case='в';
if case='Г'
then case='г';
if case='Д'
then case='д';
if case='Е'
then case='е';
if case='Ё'
then case='ё';
if case='Ж'
then case='ж';
if case='З'
then case='з';
if case='И'
then case='и';
if case='Й'
then case='й';
if case='К'
then case='к';
if case='Л'
then case='л';
if case='М'
then case='м';
if case='Н'
then case='н';
if case='О'
then case='о';
if case='П'
then case='п';
if case='Р'
then case='р';
if case='С'
then case='с';
if case='Т'
then case='т';
if case='У'
then case='у';
if case='Ф'
then case='ф';
if case='Х'
then case='х';
if case='Ц'
then case='ц';
if case='Ч'
then case='ч';
if case='Ш'
then case='ш';
if case='Щ'
then case='щ';
if case='Ы'
then case='ы';
if case='Ъ'
then case='ъ';
if case='Ь'
then case='ь';
if case='Э'
then case='э';
if case='Ю'
then case='ю';
if case='Я'
then case='я';
dcase:=dcase+ord(case);;
end;
text:=dcase;
ПОМОГИТЕ! НЕ ПОЛУЧАЕТСЯ!