forum.boolean.name - Перекодировка

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Перекодировка (http://forum.boolean.name/showthread.php?t=9227)

Перекодировка

Как в процедуре вызвать функцию перекодировки? Из интернета я получаю данные 16-hex формате вот их мне надо перекодировать используя эту функцию

Код:

uses hexdec;

function DecodeText(Src:string): string;

var

 T,B:String;

 I,SC:integer;

 C:Char;

 L:Integer;

begin

   L:=Length(Src);

   I:=0;

   T:=' ';

   while I < L do

    begin

     C:=GetChar(Src,I);

     if C<>'%' then 

      begin

      if C='+' then C:=' '

       T:=T+C;

       I:=I+1;

      end

     else

     begin

       B:='';

       B:=B+GetChar(Src,I+1);

       B:=B+GetChar(Src,I+2);

       SC:=hex2dec(B);

       T:=T+Chr(SC+848);

       I:=I+3;

     end;

   end;

    DecodeText:=T; 

end;

Ответ: Перекодировка

У меня работает вот так:

PHP код:


		
			
begin

     DrawText(DecodeText(Src),0,0);

     repaint;

     repeat until getkeyclicked = KE_STAR;

end.