UpCase, функция

Синтаксис


function UpCase(C:  Char): Char;

Описание

Функция UpCase преобразует ASCII символ к верхнему регистру. Если С не является символом нижнего регистра, UpCase возвращает С. UpCase -настоящая функция.

Ошибки

Советы и приемы

  • Функция UpCase не обрабатывает международные символы - только от "a" до "z".
  • Соответствующей функции DownCase в Delphi нет.

Пример


function DownCase(Ch:  Char):  Char;
begin
  if Ch in ['A'..'Z'] then
    Result  := Chr(Ord(Ch) - Ord('A') + Ord('а'))
  else
    Result   := Ch;
end;

// Преобразует идентификатор в каноническую форму, т.е.  первый
// символ - в верхнем регистре,  все остальные - в нижнем.
function Canonical(const S:  string):  string;
var
  I:  Integer;
begin
  SetLength(Result, Length(S));
  if Length(S) > 0 then
    Result[1] := UpCase(S[1]);
  for I := 2 to Length(S) do
    Result[I]  := DownCase(S[I]);
end;

Смотрите также

    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник




Нет комментариев.



Оставить комментарий:
Ваше Имя:
Email:
Антибот:  
Ваш комментарий: