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

[Team dz]

سلام عليكم ورحمة اللله وبركته 

اريد تحويل  من  


 AnsiString الى HEX

كود :

edit1.text:='3Q5D'

convert   to  value   hex :33513544

اريد تحويل 3Q5D   الى  33513544


وشكرا لكم

[larbiparadox]

سلام عليكم ورحمة اللله وبركته 

اريد تحويل  من  


 AnsiString الى HEX

كود :

edit1.text:='3Q5D'

convert   to  value   hex :33513544

اريد تحويل 3Q5D   الى  33513544


وشكرا لكم

وعليك السلام و الرحمة الله وبركاته

كود :

function ToHexString(const Source: String): string; var   Len: Integer;   Data: TBytes; begin   Data := TEncoding.UTF8.GetBytes(Source);   Len := System.Length(Data);   SetLength(Result, 2*Len);   BinToHex(@Data[0], PChar(Result), Len); end;

كود :

procedure TForm1.Button1Click(Sender: TObject); begin edit2.text := ToHexString(Edit1.Text); end;

[Team dz]

شكرا لك اخي الكريم تمام المثال يعمل جيدا برك الله فيك

[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;