Модифицировать строку

← →
Елена © (2002-05-22 15:15) [0]

Имеется много строк вида "ИВАНОВ ИВАН ИВАНЫЧ". Необходимо модифицировать их в вид "Иванов Иван Иваныч". Подскажите, пожалуйста, алгоритм.
Заранее благодарна.

← →
Song © (2002-05-22 15:19) [1]

Переводите всё в маленькие затем у каждого слова меняете маленькую букву на большую.

← →
Елена © (2002-05-22 15:31) [2]

Можно еще разок для особо талантливых :o)?

← →
Song © (2002-05-22 15:34) [3]

А что непонятного?
Вот у Вас оигинал: ИВАНОВ ИВАН ИВАНЫЧ
Переводите в маленькие: иванов иван иваныч
Переводите первые буквы всех слов в большие: Иванов Иван Иваныч

← →
Внук © (2002-05-22 15:36) [4]

Это тот случай, когда проще самому написать, чем другому объяснить :)

← →
Елена © (2002-05-22 15:48) [5]

AnsiLowerCase - для перевода в маленькие, а как определить является ли символ - первой буквой слова?

← →
Канадин Владимир (2002-05-22 15:55) [6]

В составе RX есть функция ExtractWord. Если лень разбираться - используй библиотеку

← →
Song © (2002-05-22 15:57) [7]

После того как Вы переведёте все буквы в маленькие, там уже бессмысленно определять является ли первая буква слова большой :))

← →
MBo © (2002-05-22 16:04) [8]

procedure qq(var s:string);
const letters=["а".."я","A".."Я","Ё","ё"];
var i:integer;
begin
s:=AnsiLowerCase(s);
if (s[1] in letters) then
s[1]:=ansiuppercase(s[1])[1];
for i:=2 to length(s) do
if (s[i] in letters) and (not (s[i-1] in letters))
then
s[i]:=ansiuppercase(s[i])[1];
end;

кроме того, в RXLib есть функция AnsiProperCase

← →
Song © (2002-05-22 16:09) [9]

2 MBo, 2 ALL
:))
В следующий раз я подпишусь Машей, когда буду вопрос задавать, чтобы долго не ждать :)

← →
Елена © (2002-05-22 16:10) [10]

MBo, Вы - чудо! Убеждаюсь в очередной раз.

← →
Внук © (2002-05-22 16:13) [11]

>>Song © (22.05.02 16:09)
И главное - терпение, чтобы готового кода дождаться :)

← →
MBo © (2002-05-22 16:21) [12]

>Song
> подпишусь Машей, чтобы долго не ждать
а что поделаешь, слаб я ;)

Как будто ты часто вопросы задаешь ;)

← →
Song © (2002-05-22 16:29) [13]

Ok, поймал, но когда нужно будет обязательно подпишусь :P

>Song
про Treeview спрашивал, я же и так ответил ;)

:) Слушай MBO, а у тебя никогда не бывает вопросов? *))

>Song
А я их под именем IHk задаю ;)

:)))))
Дык может тебе тогда помочь? Отвечать на вопросы.. рассказать как переменные освобождать... :))))

Вот народ!
Поражаюсь вам!
Для кого базу-то делали??? (UBPFD)
http://delphibase.endimus.com/?action=viewfunc&topic=strchange&index=7
Уже полно готового кода!!!

TO ALL: GO TO UBPFD!!!

Модифицировать строку Найти похожие ветки