Перевод строки из нижнего регистра в верхний.

[dima1257]

Всё увидел. Спасибо.

26 потому что 26 букв в алфавите. это без разницы т.к. 26 = Length(lower) = Length(Upper)

а в цикле каждый символ исходной строки сравнивается с каждой буквой алфавита в нижнем регистре и если произошло совпадение, то мы заменяем символ исходной строки на букву в верхнем регистре с соответствующим номером из набора букв в верхнем регистре.

[Serge_Bliznykov]

Сообщение от dima1257

Всё увидел. Спасибо.

26 потому что 26 букв в алфавите. это без разницы т.к. 26 = Length(lower) = Length(Upper)

а в цикле каждый символ исходной строки сравнивается с каждой буквой алфавита в нижнем регистре и если произошло совпадение, то мы заменяем символ исходной строки на букву в верхнем регистре с соответствующим номером из набора букв в верхнем регистре.

Молодца. Всё абсолютно точно!

[Alter]

function uCase(S :string):string;
const
  lStr = 'abcdefghijklmnopqrstuvwxyz';
  uStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  I, N :Integer;
  Buf :string;
begin
 uCase := S;
 if Length(S) > 0 then
 begin
   Buf := '';
   for I := 1 to Length(S) do
   begin
     N := Pos(S[I], lStr);
     if N > 0  then
      Buf := Buf + uStr[N]
     else
      Buf := Buf + S[I];
   end;
   uCase := Buf;
 end;
end;