Как в процедуре вызвать функцию перекодировки? Из интернета я получаю данные 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;