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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سلام عليكم خاصية تحويل من AnsiString الى HEX (/showthread.php?tid=12271)

سلام عليكم خاصية تحويل من AnsiString الى HEX - Team dz - 05-04-2023

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

اريد تحويل من

AnsiString الى HEX

كود :
edit1.text:='3Q5D'

convert to value hex :33513544

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

وشكرا لكم

RE: سلام عليكم خاصية تحويل من AnsiString الى HEX - larbiparadox - 05-04-2023

(05-04-2023, 03:26 PM)Team dz كتب : سلام عليكم ورحمة اللله وبركته

اريد تحويل من

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;

RE: سلام عليكم خاصية تحويل من AnsiString الى HEX - Team dz - 05-04-2023

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

RE: سلام عليكم خاصية تحويل من AnsiString الى HEX - Team dz - 09-04-2023

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

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; 