Кодировка в Delphi Windows-1251 -> UTF-8 uurlencoded

@BeerMix · Регистрация: 03.02.2013

Author24 — интернет-сервис помощи студентам

Добрый вечер дорогие формучане, требуется помощь, бьюсь уже неделю, не могу ничего найти в интернете, что решало бы мой вопрос, надеюсь вот тут подскажут.
В общем, есть строка "\u041f\u0430\u0432\u043b\u043e", ее нужно перекодировать в строку "Павло".
Вопрос, как это сделать?

@FIL · 28.10.2015, 20:51

Сообщение от BeerMix

как это сделать?

Один из вариантов:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin //System.JSON
  ShowMessage(TJSONObject.ParseJSONValue(
    TEncoding.UTF8.GetBytes('"\u041f\u0430\u0432\u043b\u043e"'), 0).Value);
end;

@maxuko · 29.10.2015, 09:29

или так.

Delphi

function UStrToWideStr(const aUStr : AnsiString) : WideString;
var
  i, j, Len : Integer;
begin
  Len := Length(aUStr) div 6;
  SetLength(Result, Len);
  j := 3;
  for i := 1 to Len do begin
    Result[i] := WideChar( StrToInt('$' + Copy(aUStr, j, 2)) shl 8
      + StrToInt('$' + Copy(aUStr, j + 2, 2)) );
    Inc(j, 6);
  end;
end;

@BeerMix 0 / 0 / 1 Регистрация: 03.02.2013 Сообщений: 20
		1
	Кодировка в Delphi Windows-1251 -> UTF-8 uurlencoded 28.10.2015, 17:39. Показов 4605. Ответов 2 Метки нет (Все метки) Добрый вечер дорогие формучане, требуется помощь, бьюсь уже неделю, не могу ничего найти в интернете, что решало бы мой вопрос, надеюсь вот тут подскажут. В общем, есть строка "\u041f\u0430\u0432\u043b\u043e", ее нужно перекодировать в строку "Павло". Вопрос, как это сделать? Миниатюры 0

	29.10.2015, 09:29

Кодировка в Delphi Windows-1251 -> UTF-8 uurlencoded

Решение