Как сделать, чтобы первая буква каждого слова в строке была в верхнем регистре

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

function LowCase(ch: CHAR): CHAR;
begin
  case ch of
    'A'..'Z': LowCase := CHR(ORD(ch) + 31);
  else
    LowCase := ch;
  end;
end;

function Proper(source, separators: string): string;
var
  LastWasSeparator: BOOLEAN;
  ndx: INTEGER;
begin
  LastWasSeparator := TRUE;
  ndx := 1;
  while (ndx <= Length(source)) do
  begin
    if LastWasSeparator then
      source[ndx] := UpCase(source[ndx])
    else
      source[ndx] := LowCase(source[ndx]);
    LastWasSeparator := Pos(source[ndx], separators) > 0;
    inc(ndx);
  end;
  Result := source;
end;

Можно так:

function TfrmLoadProtocolTable.ToMixCase(InString: string): string;
var
  I: Integer;
begin
  Result := LowerCase(InString);
  Result[1] := UpCase(Result[1]);
  for I := 1 to Length(InString) - 1 do
  begin
    if (Result[I] = ' ') or (Result[I] = '''') or (Result[I] = '"')
      or (Result[I] = '-') or (Result[I] = '.') or (Result[I] = '(') then
      Result[I + 1] := UpCase(Result[I + 1]);
  end;
end;

Примечание:

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

Попробуйте взамен это:

function proper(s: string): string;
var
  t: string;
  i: integer;
  newWord: boolean;
begin
  if s = '' then
    exit;
  s := lowercase(s);
  t := uppercase(s);
  newWord := true;
  for i := 1 to length(s) do
  begin
    if newWord and (s[i] in ['a'..'z']) then
    begin
      s[i] := t[i];
      newWord := false;
      continue;
    end;
    if s[i] in ['a'..'z', ''''] then
      continue;
    newWord := true;
  end;
  result := s;
end;

Перевод на русский язык:

Задача заключается в капитализации первого символа каждого слова в заданной строке, оставляя остальные символы в нижнем регистре.

В предоставленном коде есть две функции: LowCase и Proper. Функция LowCase конвертирует верхний регистр символа в соответствующий нижний регистр, добавляя 31 к его значению ASCII. Функция Proper перебирает каждый символ в строке, капитализируя его, если это первый символ слова (т.е., не предшествует никакому разделителю), или конвертируя в нижний регистр иначе.

Однако, в этом коде есть некоторые проблемы:

• Он неправильно обрабатывает знаки препинания. Например, он капитализирует 'T.' вместо 't.'.
• Функция Proper модифицирует свой входной параметр в месте, что может не быть желаемым.
• Предоставленные решения не проверяют пустые строки как входные данные.

Вот предложенная реализация, которая решает эти проблемы:

function proper(s: string): string;
var
  t: string;
  i: integer;
  newWord: boolean;
begin
  if s = '' then
    exit;
  s := lowercase(s);
  t := uppercase(s);
  newWord := true;
  for i := 1 to length(s) do
  begin
    if newWord and (s[i] in ['a'..'z']) then
    begin
      s[i] := t[i];
      newWord := false;
      continue;
    end;
    if s[i] in [' ', '''', '"', '.', '-', '(', ')'] then
      newWord := true;
  end;
  result := s;
end;

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

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

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

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

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