Изменение регистра

В Delphi есть три функции для изменения регистра: upcase, lowercase, uppercase. Но они работают только для латинского алфавита. Чтобы сделать аналогичные функции для русского алфавита я использовал то, что в кодировке Windows-1251 буквы расставлены по алфавиту, как большие, так и маленькие. То есть номер большой буквы связан с номером маленькой константой. И в русском, и в английском алфавитах маленькие буквы находятся за большими с разностью в 32 символа.

Здесь реализованы четыре функции: upcase и locase для изменения регистра одного символа, и uppercase и lowercase для изменения регистра строки

function UpCase(ch: char): char;
begin
  if (ch in ['a'..'z', 'а'..'я']) then
    result := chr(ord(ch) - 32)
  else
    result := ch;
end;

function LoCase(ch: char): char;
begin
  if (ch in ['A'..'Z', 'А'..'Я']) then
    result := chr(ord(ch) + 32)
  else
    result := ch;
end;

function UpperCase(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to length(result) do
    if (result[i] in ['a'..'z', 'а'..'я']) then
      result[i] := chr(ord(result[i]) - 32);
end;

function LowerCase(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to length(result) do
    if (result[i] in ['A'..'Z', 'А'..'Я']) then
      result[i] := chr(ord(result[i]) + 32);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  s = 'zZцЦ.';
var
  i: integer;
begin
  Form1.Caption := 'DownCase: ';
  for i := 1 to Length(s) do
    Form1.Caption := Form1.Caption + LoCase(s[i]);
  Form1.Caption := Form1.Caption + ' UpCase: ';
  for i := 1 to Length(s) do
    Form1.Caption := Form1.Caption + UpCase(s[i]);
  Form1.Caption := Form1.Caption + ' UpperCase: ' + UpperCase(s);
  Form1.Caption := Form1.Caption + ' LowerCase: ' + LowerCase(s);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 920 • TDictionary Custom Sort 6 025 • Fast Watermark Sources 5 817 • 3D Designer 8 634 • Sik Screen Capture 6 148 • Patch Maker 6 587 • Айболит (remote control) 6 576 • ListBox Drag & Drop 5 436 • Доска для игры Реверси 95 354 • Графические эффекты 6 791 • Рисование по маске 5 961 • Перетаскивание изображений 4 962 • Canvas Drawing 5 340 • Рисование Луны 5 064 • Поворот изображения 4 605 • Рисование стержней 3 263 • Paint on Shape 2 504 • Генератор кроссвордов 3 395 • Головоломка Paletto 2 697 • Теорема Монжа об окружностях 3 491 • Пазл Numbrix 2 292 • Заборы и коммивояжеры 2 980 • Игра HIP 1 943 • Игра Go (Го) 1 857 • Симулятор лифта 2 204 • Программа укладки плитки 1 926 • Генератор лабиринта 2 366 • Проверка числового ввода 2 052 • HEX View 2 373 • Физический маятник 2 009

Изменение регистра

Похожие по теме исходники