Первая буква каждого слова в верхнем регистре

Материал из DRKB

Первая буква каждого слова в верхнем регистре[править | править код]

Для слов из латинских букв

function LowCase(ch: CHAR): CHAR;
begin
  case ch of
    'A'..'Z': LowCase := Chr(Ord(ch) + 31);
  else
    LowCase := ch;
  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;


Source: http://delphiworld.narod.ru/
ID: 00848



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;


Source: http://delphiworld.narod.ru/
ID: 00849



{ **** 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;


Source: http://delphibase.endimus.com
ID: 00907