freepascal.ru

Всем доброго утра! (Опять уже утро )

Хотел найти модуль для работы с vcf (vcard) но не нашел.
Как хорошо что приходят умные мысли...

Вопрос такой - как utf8 код преобразовать в utf8 символ.

т.е. пример из таблицы - 65 U+0041 41 A Latin Capital Letter A
где 41 - это код символа, а A - это сам символ.

Нужно типа

Код: Выделить всё

function codetochar(code: string): string;
///////////////
s: string[3];
s:=codetochar('41');


Код: Выделить всё

s:=chr(41);

обратная функция - ord

Код: Выделить всё

i:=ord('a');

Но незабываем что в utf8 присутствуют "составные" символы переменной длинны

zub писал(а):

Код: Выделить всё

s:=chr(41);

обратная функция - ord

Код: Выделить всё

i:=ord('a');

Но незабываем что в utf8 присутствуют "составные" символы переменной длинны

Zub Вопрос читайте внимательнее

разобрался сам

Код: Выделить всё

s:='=46=61=6D=69=6C=69=61=D0=98=D0=BC=D1=8F=D0=9E=D1=87=D0=B5=D1=81=D1=82=D0=B2=D0=BE';
  i:=1;
  s2:='';
  while length(s)>i do
  begin
   s1:=s[i+1]+s[i+2];
   t := StrToInt('$' + s1);
   s2:=s2+chr(t);
   i:=i+3;
  end;
  memo1.Append(s2);     


>>Вопрос читайте внимательнее
Какое название - такой и вопрос.
Потрудись нормально формулировать вопросы и называть темы