Установка для каждого слова строки верхнего регистра для первого символа и нижнего регистра для всех остальных

Delphi , Синтаксис , Текст и Строки

Автор: VID
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Установка для каждого слова строки верхнего регистра для
первого символа и нижнего регистра для всех остальных

Пусть S = 'hello WOrLd, how aRe YOU?';
При передаче функции в качестве параметра переменной S,
Result = 'Hello World, How Are You?'

Зависимости: sysutils, system
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        30 апреля 2002 г.
***************************************************** }

function PROPER(S: string): string;
const
  Symbols = ' _;.,1234567890';
var
  X: Integer;
begin
  Result := '';
  if Length(s) = 0 then
    exit;
  S[1] := AnsiUpperCase(s[1])[1];
  for X := 1 to length(s) do
    if POS(S[x], Symbols) <> 0 then
    begin
      if X <> Length(s) then
        S[x + 1] := AnsiUpperCase(s[x + 1])[1];
    end
    else
      S[x + 1] := AnsiLowerCase(S[x + 1])[1];
  Result := S;
end;

Программный код на языке Delphi, который конвертирует первую букву каждого слова в верхний регистр и остальные буквы в нижний регистр. Вот подробное описание того, что код делает:

Функция PROPER

Функция принимает строку S в качестве входного параметра и возвращает новую строку с желаемым форматированием.

Инициализация

Функция инициализирует пустую строку Result, которая будет хранить отформатированный вывод. Она также проверяет, является ли вводная строка S пустой, в котором случае она сразу же выходит из функции.

Цикл форматирования

Код затем вступает в цикл, который проходит по каждому символу входной строки S. Для каждого символа:

• Если символ является частью знака (определенных как пробелы, точки с запятой, подчерки, запятые, точки, цифры 0-9), то следующий символ конвертируется в верхний регистр с помощью функции AnsiUpperCase.
• В противном случае сам символ конвертируется в нижний регистр с помощью функции AnsiLowerCase.

Возвращение

Отформатированная строка затем присваивается переменной Result и возвращается в виде выходного параметра.

Зависимости

Код требует двух зависимостей: sysutils и system.

Автор и информация о правах авторства

Автором этого кода является VID, с контактной информацией, предоставленной. В целом, это простой, но эффективный способ конвертировать текст в заглавное регистр (первая буква верхнего регистра, остальные буквы нижнего регистра). Он полезен при необходимости форматирования текста для отображения или хранения целей.

Установка для каждого слова строки верхнего регистра для первого символа и нижнего риста для всех остальных символов в строке с помощью функции PROPER.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::