Изменение регистра букв
Материал из DRKB
Изменение регистра букв[править | править код]
В 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
Eesult := 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;
Source: Взято с сайта http://blackman.wp-club.net/
ID: 01935