2. Как организовать "алфавит" - привычный способ "Chr(Ord('а') + i)" (i∈[0..x]) - не работает... Вообще что-то страшное происходит
3. Как цивилизованно выводить русские строки из кода в окно ? Получается только через
- Код: Выделить всё
interface
Function TightToWide(NewString: WideString): WideString;
implementation
{$IFDEF win32}
Function TightToWide(NewString: WideString): WideString;
Begin
Result := NewString;
End;
{$ENDIF}
{$IFDEF linux}
Function TightToWide(NewString: WideString): WideString;
Begin
Result := Utf8Encode(NewString);
End;
{$ENDIF}
4. Можно ли редактировать исходники в Windows в UTF8 (т.е. чтобы, к примеру, комментарии, набранные в Linux в Windows не превращались в крякозябру). Тот же вопрос к хинтам и заголовкам Label'ов всяких там?
Каждый юнит начинается с {$codepage utf-8}
Заранее спасибо
[/code]
