ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Вопрос волнующий мой мозг до глубины ... мне надо составить программу которая бы заменяла из Аbcda сделала AbcdA,
те 'a' стало 'A' ... или наоборот abcda .
Upcase не помогает... есть у кого идеи?
Загуглил нашёл такую функцию, но адин х не пашет.... :
function downcase(symbol:char):char;
begin
case symbol of
'A'..'Z','А'..'П':downcase:=chr(ord(symbol)+32);
'Р'..'Я':downcase:=chr(ord(symbol)+80);
else
downcase:=symbol;
end;

Код:

function LCase(Symbol: Char): Char;
begin
  case Symbol of
    'А'..'Я', 'A'..'Z':
      Result := Chr(Ord(Symbol) + 32);
    'Ё':
      Result := 'ё';
  else
    Result := Symbol;
  end;
end;


function UCase(Symbol: Char): Char;
begin
  case Symbol of
    'а'..'я', 'a'..'z':
      Result := Chr(Ord(Symbol) - 32);
    'ё':
      Result := 'Ё';
  else
    Result := Symbol;
  end;
end;

Функции для перевода символа из нижнего регистра в верхний и наоборот.