سلام عليكم خاصية تحويل من AnsiString الى HEX

[Team dz]

عكس الدلة لمن يهمه الكود 

PHP كود :

function HexToAsc(strData:string): string;
var
  sresult:string;
  sfinal:string;
  hexc:cardinal;
  i:integer;
  Car: string;
begin
  i:=1;
  while i<=length(strData) do
  begin
    Car := copy(strData,i,2);
    if Car <> '00' then
    begin
      hexc := strtoint('$' + Car);
      sresult := inttostr(hexc);
      sresult := chr(strtoint(sresult));
      sfinal := sfinal + sresult;
    end;

    i:=i+2;
  end;

  result := sfinal
end;