помогите с решением, преобразование заголовков Опции

[Frozen83]

Люди...помогите...дали мне такое задания для типовика ...озвучиваю: Преобразовать заголовки к верхнему регистру, используя русский и латинский регистры.
Ума не приложу, как делать, а надо. Жду помощи.

[volvo]

Frozen83
А самому подумать? Никак?

Код

Function UpperString(s: String): String;
 Var i: Byte;
 Begin
   For i := 1 To Length(s) Do
     If s[i] In ['a'..'z'] Then s[i] := UpCase(s[i])
     Else
       If s[i] In ['а'..'п', 'р'..'я'] Then
         Begin
           { Если пришли сюда, то буквы - русские. Добавляй свой код по переводу кириллицы в верхний регистр }
         End;
   UpperString := s;
 End;

Сообщение отредактировано: volvo - 26.11.2004 16:05