Шестнадцатириная кодировка

[Nixtone]

Ребята помогите, как написать прогу преобразования вот таких вещей %D1%EB%F3%F8%E0%FF %F2%E8%F8%E8%ED%F3 в нормальный русский текст?

[Veiron]

По моему на этом форуме где то даже исходники были конвектора, поищи.

[Alter]

Это то что вам надо, нужен модуль Windows:

function UrlDecode(Str: string): string;

  function HexToChar(W: word): Char;
  asm
   cmp ah, 030h
   jl @@error
   cmp ah, 039h
   jg @@10
   sub ah, 30h
   jmp @@30
@@10:
   cmp ah, 041h
   jl @@error
   cmp ah, 046h
   jg @@20
   sub ah, 041h
   add ah, 00Ah
   jmp @@30
@@20:
   cmp ah, 061h
   jl @@error
   cmp al, 066h
   jg @@error
   sub ah, 061h
   add ah, 00Ah
@@30:
   cmp al, 030h
   jl @@error
   cmp al, 039h
   jg @@40
   sub al, 030h
   jmp @@60
@@40:
   cmp al, 041h
   jl @@error
   cmp al, 046h
   jg @@50
   sub al, 041h
   add al, 00Ah
   jmp @@60
@@50:
   cmp al, 061h
   jl @@error
   cmp al, 066h
   jg @@error
   sub al, 061h
   add al, 00Ah
@@60:
   shl al, 4
   or al, ah
   ret
@@error:
   xor al, al
  end;

  function GetCh(P: PChar; var Ch: Char): Char;
  begin
    Ch := P^;
    Result := Ch;
  end;

var
  P: PChar;
  Ch: Char;
begin
  Result := '';
  P := @Str[1];
  while GetCh(P, Ch) <> #0 do
  begin
    case Ch of
      '+': Result := Result + ' ';
      '%':
        begin
          Inc(P);
          Result := Result + HexToChar(PWord(P)^);
          Inc(P);
        end;
    else
      Result := Result + Ch;
    end;
    Inc(P);
  end;
end;

[Nixtone]

Мои знания еще маловаты, помогите это прикрепить к http://slil.ru/25825082 )) Пожалуйста)))

From Stilet: Не нужно оглашать свои знания какимим бы скудными они ни были непотребными выражениями

[SERG1980]

function HexToStr(HexStr:string):string;
 var Hex:byte;
 begin
  Result:='';
  HexStr:=StringReplace(HexStr,'%', '$',[rfReplaceAll, rfIgnoreCase]);
  while Pos('$',HexStr)<>0 do
  begin
   if HexStr[1]=' ' then
   begin
    Result:=Result+' ';
    Delete(HexStr,1,1);
   end;
   Hex:=Strtoint(Copy(HexStr,1,3));
   Delete(HexStr,1,3);
   Result:=Result+chr(Hex)
  end;
 end;

К вашей проге можно применить так:

[Nixtone]

Большое спасибо)) Очень благодарен!)) На будущее буду знать)))