HTML таблица символов

[Den7656]

Подскажите пожалуйста как конвертировать например:
#1056#1091#1089#1089#1082#1072#1103
в
Русская
Это HTML таблица символов.

[Человек_Борща]

с чего вы взяли, что HTML?

[JTG]

Вот так будет HTML-entities
&#_1056;&#_1091;&#_1089;&#_1089;&#_ 1082;&#_1072;&#_1103;

http://www.koders.com/delphi/fidF925...17BAACE42.aspx
http://stackoverflow.com/questions/1...hi-html-decode

function HTMLDecode(const AStr: String): String;
var
  Sp, Rp, Cp, Tp: PChar;
  S: String;
  I, Code: Integer;
begin
  SetLength(Result, Length(AStr));
  Sp := PChar(AStr);
  Rp := PChar(Result);
  Cp := Sp;
  try
    while Sp^ <> #0 do
    begin
      case Sp^ of
        '&': begin
               Cp := Sp;
               Inc(Sp);
               case Sp^ of
                 'a': if AnsiStrPos(Sp, 'amp;') = Sp then  { do not localize }
                      begin
                        Inc(Sp, 3);
                        Rp^ := '&';
                      end;
                 'l',
                 'g': if (AnsiStrPos(Sp, 'lt;') = Sp) or (AnsiStrPos(Sp, 'gt;') = Sp) then { do not localize }
                      begin
                        Cp := Sp;
                        Inc(Sp, 2);
                        while (Sp^ <> ';') and (Sp^ <> #0) do
                          Inc(Sp);
                        if Cp^ = 'l' then
                          Rp^ := '<'
                        else
                          Rp^ := '>';
                      end;
                 'n': if AnsiStrPos(Sp, 'nbsp;') = Sp then  { do not localize }
                      begin
                        Inc(Sp, 4);
                        Rp^ := ' ';
                      end;
                 'q': if AnsiStrPos(Sp, 'quot;') = Sp then  { do not localize }
                      begin
                        Inc(Sp,4);
                        Rp^ := '"';
                      end;
                 '#': begin
                        Tp := Sp;
                        Inc(Tp);
                        while (Sp^ <> ';') and (Sp^ <> #0) do
                          Inc(Sp);
                        SetString(S, Tp, Sp - Tp);
                        Val(S, I, Code);
                        Rp^ := Chr((I));
                      end;
                 else
                   Exit;
               end;
           end
      else
        Rp^ := Sp^;
      end;
      Inc(Rp);
      Inc(Sp);
    end;
  except
  end;
  SetLength(Result, Rp - PChar(Result));
end;

[Den7656]

Спасибо большое, то что нужно.

[Den7656]

Странно...
Попробовал

memo1.Lines.Add(HTMLDecode('&#_1056;&#_1091;&#_1089;&#_1089;&#_ 1082;&#_1072;&#_1103;'));

без символа "_"

Получаю - CAA:0O

В чем проблема может быть ?

[Pamparam]

Подскажите пожалуйста как конвертировать например:
#1056#1091#1089#1089#1082#1072#1103
в
Русская
.
.
.
Попробовал memo1.Lines.Add(HTMLDecode('Русская'));

Если спрашивал как декодить хтмл, зачем тогда вводишь "Русская"?

[Den7656]

Это форум сам перевел )))
Я исправил предыдущую мессагу.

[Pamparam]

ищи исходники перевода сообщений этого форума ))

[Den7656]

Это тема создана в разделе DELPHI. Мне нужна реализация именно на этом языке.

[Serge_Bliznykov]

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

Это тема создана в разделе DELPHI. Мне нужна реализация именно на этом языке.

во-первых, чем не устраивает решение, приведённое выше?! Оно именно на Delphi

во-вторых, поиском не пробовали воспользоваться?!
навскидку (помимо вышеприведённых ссылок):

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

HTML Entities