delphi4arab منتديات دلفي للعرب

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

اريد تحويل من

AnsiString الى HEX

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

convert to value hex :33513544

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

وشكرا لكم

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

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

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

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; 

Team dz

larbiparadox

Team dz

Team dz