Проблемы с кодировкой UTF8

[Terikon]

Вот так всё кодируется отлично в ответ получаю закодированную букву 'ы'

begin
Edt1.Text:=#1099;
Edt2.Text:=UTF8Decode(Edt1.Text);
end;

Но если делать так

begin
Edt1.Text:=Edt4.Text; \\ в Edit4 пишу #1099
Edt2.Text:=UTF8Decode(Edt1.Text);
end;

То в ответ получаю текст из Edt4 (#1099) тоесть не перекодированный

[ex.cluz]

Нужно использовать utf8_encode.


Добавлено позже:

Чет с кодом не разобрался, не то посоветовал.
Попробовал у себя.
Тут, видимо дело в том, что #1099 в Edite воспринимается как 5 разных символов, а не как номер одного.
Надо глядеть в сторону Chr.

[Terikon]

Сообщение от ex.cluz

Нужно использовать utf8_encode.

вместо UTF8Decode ?

или так Edt1.Text:=UTF8encode(Edt4.Text); ?

пробовал так Edt1.Text:=chr(Edt4.Text);
не компилится(

[ex.cluz]

Проблема в том, что когда в эдит1 программно добавить #1099, то делфи автоматически распознает, что это один символ, а вот когда вводится вручную - это становится обычной строкой.

Самому интересно стало, сейчас раберусь.


Добавлено позже:

Вот так попробуйте:

Edit2.Text:=UTF8Decode(Chr(StrToInt(Edit1.Text)));

Но учтите, что в поле Эдит1 нужно вводить только число (1099) без решетки.
А если обязательно с решеткой - то ее нужно удалять перед этой операцией.

Проблема решена?

[Terikon]

Проблема решена?

К сожалению нет, делаю так

Edt1.Text:=Edt4.Text;
Edt2.Text:=UTF8Decode(Chr(StrToInt(Edt1.Text)));

в ответ получаю код из Edt4 то есть 1099
а как быть если не одна буква а слово?

PS у меня делфи 2010, в делфи7 вообще почему то не конвертирует, хотя код вставляю такой же как и в делфи 10

[ex.cluz]

У меня Делфи 2007.
Поддержку Юникода как раз с 2009 или с 2010 ввели.

А зачем вам конвертация нужна?

[Terikon]

Сообщение от ex.cluz

У меня Делфи 2007.
Поддержку Юникода как раз с 2009 или с 2010 ввели.

А зачем вам конвертация нужна?

Get(через инди) запросом получаю текст со страницы, и там есть закодированный текст такова вида.

[ex.cluz]

Вот функции:

AnsiToUtf8(const S: string): UTF8String - перекодирует строку в формат UTF8.
PUCS4Chars(const S: UCS4String): PUCS4Char - возвращает указатель на первый символ строки формата UCS-4 для работы со строкой, как с последовательностью символов, заканчивающейся символом с кодом нуль.
StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar - преобразует стандартную строку к последовательности Unicode-символов, завершающейся символом с кодом нуль.
UCS4StringToWideString(const S: UCS4String): WideString - преобразует строку формата UCS-4 к строке формата Unicode.
Utf8Decode(const S: UTF8String): WideString - преобразует строку формата UTF-8 к строке формата Unicode.
Utf8Encode(const WS: WideString): UTF8String - преобразует строку формата Unicode к строке формата UTF-8.
Utf8ToAnsi(const S: UTF8String): string - преобразует строку формата UTF-8 к стандратной строке.
WideCharLenToString(Source: PWideChar; SourceLen: Integer): string - преобразует строку формата Unicode к стандартной строке. Длина исходной строки задается параметром SourceLen.
WideCharLenToStrVar(Source: PWideChar; SourceLen: Integer; var Dest: string) - аналог предыдущей функции - преобразует строку формата Unicode к стандартной строке. Длина исходной строки задается параметром SourceLen, а результат возвращается через параметр Dest.
WideCharToString(Source: PWideChar): string - преобразует последовательность Unicode-символов, завершающуюся символом с кодом нуль, к стандартной строке.
WideCharToStrVar(Source: PWideChar; var Dest: string) - аналог предыдущей функции - преобразует последовательность Unicode-символов, завершающуюся символом с кодом нуль, к стандартной строке. Результат возвращается через параметр Dest.
WideStringToUCS4String(const S: WideString): UCS4String - преобразует строку формата Unicode к строке формата UCS-4.

Надеюсь, чего-то стоящее найдете. Я лично с такой проблемой не сталкивался.

[Terikon]

например если вставить в сообщение на практически любой форум такой знак ( _&_#1043; ) без(_) то он конвертируется в букву, как бы такое реализовать на делфи

[ex.cluz]

[OFFTOP]
Завтра прикину со свежей головой
[/OFFTOP]