Тема: Алгоритм замены латинских букв
Показать сообщение отдельно
  #5  
Старый 13.03.2010, 01:13
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Код:
var
  Sh : Integer;
begin
  Sh := Ord('a') - Ord('A');
  ...
  s[i] := Chr(ord(s[i]) + Sh);
...

Ответить с цитированием