VPF::Lazarus. Код символа в UTF8 - Форум программистов

Heriz

Дата 21.1.2012, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.3.2010

Репутация: нет
Всего: нет

Написана функция UpCase для русских букв в UTF8. Символ получается либо '?' либо пробел. Код символа даже к тысяче не приближается. С Windows-1251 в Delphi все работало.

Без учета 'Ё'

Код


function TForm1.UpCaseRus(c : widechar):widechar;
begin
    if ord(c)-32<=1040 then Result:=c else
    Result:=char(ord(c)-32);
end;

bems

Дата 22.1.2012, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88

M
bems

Перенесено из раздела Дельфи

--------------------

Обижено школьников: 8

volvo877

Дата 23.1.2012, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Heriz @ 21.1.2012, 20:01

)

Написана функция UpCase для русских букв в UTF8

Велосипед?

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  s : UTF8String;
  Ch : String;
begin
  s := Utf8Encode('привет');
  Ch := UTF8Copy(s, 3, 1); // Uses LCLProc для этой функции: получаем третий символ строки ...
  Ch := UTF8Encode(WideUpperCase(UTF8Decode(Ch))); // ... переводим его в верхний регистр ...

  ShowMessage(Ch); // -> 'И'
end;

Heriz

Дата 23.1.2012, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.3.2010

Репутация: нет
Всего: нет

volvo877, да - велосипед. Для винды под делфи приходилось.
Спасибо за ответ.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »