работа со словом в Delphi

[Vova8888]

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

[IT-man]

for I := 1 to Length(s) do
    if not odd(i) then s[i]:=chr(ord(s[i])-32);

результат
понедельник-->пОнЕдЕлЬнИк

[Serge_Bliznykov]

вот так лучше:

var s, s1 :string;
  i : integer;
begin
  s := 'ПонЕДЕЛьнИК';
  for i:=1 to Length(s) do begin
    if odd(i)
      then s1 := AnsiLowerCase(s[i])
      else s1 := AnsiUpperCase(s[i]);
    s[i] := s1[1];
  end;

[Vova8888]

Сообщение от IT-man

for I := 1 to Length(s) do
    if not odd(i) then s[i]:=chr(ord(s[i])-32);

результат
понедельник-->пОнЕдЕлЬнИк

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

[Utkin]

Смотря где .

[Vova8888]

Сообщение от Utkin

Смотря где .

ну в слове пОнЕдЕлЬнИк
сделать буквы о,е,е,ь,и
что бы только эти буквы были в стиле курсива
слово к стате может быть любым

[Utkin]

В слове нельзя сделать слово жирным. Потому что строки не хранят такой информации. Но слово жирным можно сделать при отображении его например в RichEdit.

[Stilet]

ну в слове пОнЕдЕлЬнИк

Никак В Словах курсив невозможен.
Он возможен только в компоненте, которая эти слова отображает

[Vova8888]

Сообщение от Stilet

Никак В Словах курсив невозможен.
Он возможен только в компоненте, которая эти слова отображает

ну подскажите как сделать в компоненте edit1.text четные буквы стали стилем курсив

[Vova8888]

Сообщение от Vova8888

ну подскажите как сделать в компоненте edit1.text четные буквы стали стилем курсив

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