Перевести ASCII в String

[Chaser_81]

Всем привет!

Есть строка в ASCII-код, пример:

& #1055;& #1083;& #1103;& #1078;& #1080; & #1074; & #1043;& #1077;& #1088;& #1094;& #1077;& #1075;-& #1053;& #1086;& #1074;& #1080;

Нужно перекодировать ее в читабельный вид.

Подскажите, есть ли готовые функции?

ПС. Поставил пробелы после & чтобы автоматом форум не перекодировал в норм текст.

[Arigato]

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

ASCII-код

Это не ASCII-код.

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

Нужно перекодировать ее в читабельный вид.
Поставил пробелы после & чтобы автоматом форум не перекодировал в норм текст.

А чем не решение?

[Chaser_81]

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

Это не ASCII-код.

А чем не решение?

А что это за код?
Это какой-то псевдокод, но какой не могу понять.

Мне нужно для Delphi )

[Chaser_81]

Ага, это юникод

[Chaser_81]

Есть у кого-то готовые функции для перевода в кириллицу?

[digitalis]

Самый простой вариант - создать 2 константных массива, один Юникод, второй - кир. Или даже один, используя код символа как индекс. Хотя впрочем, найти готовый вариант проще. Если найдётся.
А учесть, что вариантов кир. юникода - как блох на собаке (чувашский, абхазский, церковнославянский etc...) - mama mia!

[Chaser_81]

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

Самый простой вариант - создать 2 константных массива, один Юникод, второй - кир. Или даже один, используя код символа как индекс. Хотя впрочем, найти готовый вариант проще. Если найдётся.
А учесть, что вариантов кир. юникода - как блох на собаке (чувашский, абхазский, церковнославянский etc...) - mama mia!

Да вот не хотелось бы изобретать велосипед, в том то и дело

[digitalis]

Ну тогда успехов в поиске.

[Filka]

function MyDecode(const AStr: AnsiString): WideString;
var
  Sp, Tp: PAnsiChar;
  Rp: PWideChar;
  S: AnsiString;
  I, Code: Integer;
begin
  SetLength(Result, Length(AStr));
  Sp := PChar(AStr);
  Rp := PWideChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ = '&' then
    begin
      Inc(Sp);
      if Sp^ = '#' then
      begin
        Inc(Sp);
        Tp := Sp;
        while (Sp^ <> ';') and (Sp^ <> #0) do
          Inc(Sp);
        SetString(S, Tp, Sp - Tp);
        Val(S, I, Code);
        Rp^ := WideChar(I);
      end;
    end
    else
      Rp^ := WideChar(Sp^);
    Inc(Rp);
    Inc(Sp);
  end;
  SetLength(Result, Rp - PWideChar(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
const // убрать пробелы после &
  S = '& #1055;& #1083;& #1103;& #1078;& #1080; & #1074; & #1043;& #1077;' +
      '& #1088;& #1094;& #1077;& #1075;-& #1053;& #1086;& #1074;& #1080;';
begin
  ShowMessage(MyDecode(S));
end;

[Chaser_81]

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

function MyDecode(const AStr: AnsiString): WideString;
var
  Sp, Tp: PAnsiChar;
  Rp: PWideChar;
  S: AnsiString;
  I, Code: Integer;
begin
  SetLength(Result, Length(AStr));
  Sp := PChar(AStr);
  Rp := PWideChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ = '&' then
    begin
      Inc(Sp);
      if Sp^ = '#' then
      begin
        Inc(Sp);
        Tp := Sp;
        while (Sp^ <> ';') and (Sp^ <> #0) do
          Inc(Sp);
        SetString(S, Tp, Sp - Tp);
        Val(S, I, Code);
        Rp^ := WideChar(I);
      end;
    end
    else
      Rp^ := WideChar(Sp^);
    Inc(Rp);
    Inc(Sp);
  end;
  SetLength(Result, Rp - PWideChar(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
const // убрать пробелы после &
  S = '& #1055;& #1083;& #1103;& #1078;& #1080; & #1074; & #1043;& #1077;' +
      '& #1088;& #1094;& #1077;& #1075;-& #1053;& #1086;& #1074;& #1080;';
begin
  ShowMessage(MyDecode(S));
end;

Да, спасибо, уже на Стековерфлоу нашел решение. Немного другое, но тоже рабочеее