Установка для каждого слова строки верхнего регистра для первого символа и нижнего регистра для всех остальныхDelphi , Синтаксис , Текст и СтрокиУстановка для каждого слова строки верхнего регистра для первого символа и нижнего регистра для всех остальных
Автор: VID { **** 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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |