[Vova888]

народ подскажите плиз как сделать так:
есть слово "понедельник"
в этом слове сделать четные буквы заглавными,
а нечетные прописными
заранее спасибо!

[Страдалецъ]

Код:

for i := 1 to Length(UserWord)
do if Odd(i) 
    then UserWord[i] := AnsiLowerCase(UserWord[i])
    else UserWord[i] := AnsiUpperCase(UserWord[i]);

[Vova888]

Сообщение от Страдалецъ

Код:

for i := 1 to Length(UserWord)
do if Odd(i) 
    then UserWord[i] := AnsiLowerCase(UserWord[i])
    else UserWord[i] := AnsiUpperCase(UserWord[i]);

А не четные как сделать курсивом?

[NIch]

А курсив должен поддерживать компонент вывода...
Текст никак не меняется, а вот к примеру Edit:

Код:

Edit1.Font.Style := [fsItalic];

C RichEdit чуть сложнее...
Нужно выделять часть текста методами SelLength , SelStart и его преобразовывать в курсив...
http://www.realcoding.net/article/view/405
http://www.delphisources.ru/pages/fa...ont_style.html
Но повторюсь:
Курсив это не вид букв (заглавные/строчные) это стиль вывода на экран...