В Delphi есть три функции для изменения регистра: upcase, lowercase, uppercase. Но они работают только для латинского алфавита. Чтобы сделать аналогичные функции для русского алфавита я использовал то, что в кодировке Windows-1251 буквы расставлены по алфавиту, как большие, так и маленькие. То есть номер большой буквы связан с номером маленькой константой. И в русском, и в английском алфавитах маленькие буквы находятся за большими с разностью в 32 символа. Здесь реализованы четыре функции: upcase и locase для изменения регистра одного символа, и uppercase и lowercase для изменения регистра строки
|
Code: |
|
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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!