Смена регистра

[Exs42]

Ребяты помогите!
Как называется функция, которая все строчные и прописные буквы латинского алфавита приводит к одному формату?

 

[bel1ever]

Перевод в верхний регистр -

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

Перевод в нижний регистр -

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

Соответственно использование
s:='QwERtY';
x:=Up(s); /или/ x:=Down(s);


Если нужно ещё и для русского, то измени:
Up : if (result in ['a'..'z']) then на if (result in ['a'..'z','а'..'я']) then
Down: if (result in ['A'..'Z']) then на if (result in ['A'..'Z','А'..'Я']) then

 

[gemaglabin]

lowercase() и uppercase()

 

[Exs42]

Псибки!