Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Модифицировать строку [D5, Win95/98, WinME, NT4, Win2k, WinXP]

Елена © (2002-05-22 15:15:00)
Имеется много строк вида "ИВАНОВ ИВАН ИВАНЫЧ". Необходимо модифицировать их в вид "Иванов Иван Иваныч". Подскажите, пожалуйста, алгоритм.
Заранее благодарна.

MBo (2002-05-23 07:27:00) [1]
>lipskiy
у меня надежней получилось ;)
("лениН©пАртия?комСомол")

нетрудно и английский алфавит добавить

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

TO ALL: GO TO UBPFD!!!

Song (2002-05-22 19:19:00) [3]
:)))))
Дык может тебе тогда помочь? Отвечать на вопросы.. рассказать как переменные освобождать... :))))

MBo (2002-05-22 17:36:00) [4]
>Song
А я их под именем IHk задаю ;)

Song (2002-05-22 16:44:00) [5]
:) Слушай MBO, а у тебя никогда не бывает вопросов? *))

MBo (2002-05-22 16:42:00) [6]
>Song
про Treeview спрашивал, я же и так ответил ;)

Song (2002-05-22 16:29:00) [7]
Ok, поймал, но когда нужно будет обязательно подпишусь :P

MBo (2002-05-22 16:21:00) [8]
>Song
> подпишусь Машей, чтобы долго не ждать
а что поделаешь, слаб я ;)

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

Внук (2002-05-22 16:13:00) [9]
>>Song © (22.05.02 16:09)
И главное - терпение, чтобы готового кода дождаться :)

Елена (2002-05-22 16:10:00) [10]
MBo, Вы - чудо! Убеждаюсь в очередной раз.

Song (2002-05-22 16:09:00) [11]
2 MBo, 2 ALL
:))
В следующий раз я подпишусь Машей, когда буду вопрос задавать, чтобы долго не ждать :)

MBo (2002-05-22 16:04:00) [12]
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 15:57:00) [13]
После того как Вы переведёте все буквы в маленькие, там уже бессмысленно определять является ли первая буква слова большой :))

Канадин Владимир (2002-05-22 15:55:00) [14]
В составе RX есть функция ExtractWord. Если лень разбираться - используй библиотеку

Елена (2002-05-22 15:48:00) [15]
AnsiLowerCase - для перевода в маленькие, а как определить является ли символ - первой буквой слова?

Внук (2002-05-22 15:36:00) [16]
Это тот случай, когда проще самому написать, чем другому объяснить :)

Song (2002-05-22 15:34:00) [17]
А что непонятного?
Вот у Вас оигинал: ИВАНОВ ИВАН ИВАНЫЧ
Переводите в маленькие: иванов иван иваныч
Переводите первые буквы всех слов в большие: Иванов Иван Иваныч

Елена (2002-05-22 15:31:00) [18]
Можно еще разок для особо талантливых :o)?

Song (2002-05-22 15:19:00) [19]
Переводите всё в маленькие затем у каждого слова меняете маленькую букву на большую.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »