Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 451

•  TDictionary Custom Sort  6 486

•  Fast Watermark Sources  6 283

•  3D Designer  9 226

•  Sik Screen Capture  6 616

•  Patch Maker  6 995

•  Айболит (remote control)  6 999

•  ListBox Drag & Drop  5 870

•  Доска для игры Реверси  97 070

•  Графические эффекты  7 201

•  Рисование по маске  6 502

•  Перетаскивание изображений  5 367

•  Canvas Drawing  5 742

•  Рисование Луны  5 455

•  Поворот изображения  4 983

•  Рисование стержней  3 536

•  Paint on Shape  2 805

•  Генератор кроссвордов  3 670

•  Головоломка Paletto  2 959

•  Теорема Монжа об окружностях  3 763

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 133

•  Игра Go (Го)  2 068

•  Симулятор лифта  2 439

•  Программа укладки плитки  2 113

•  Генератор лабиринта  2 585

•  Проверка числового ввода  2 264

•  HEX View  2 592

•  Физический маятник  2 202
 
скрыть

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


В 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;