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

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