Выделить заголовки Опции

[Milena]

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

[volvo]

Jahnerus
Можно сделать гораздо удобнее:

Код

Function UpCase(Ch:Char):Char;
Begin
Case Ch Of
 'a'..'z':UpCase:=Chr(Ord(Ch)-$20);
 'а'..'п':UpCase:=Chr(Ord(Ch)-$20);
 'р'..'я':UpCase:=Chr(Ord(Ch)-$50);
Else
   UpCase := Ch
End
End;

© Oleg_Z

Сообщение отредактировано: volvo - 29.11.2004 18:48