+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات البرمجة - Programming Forums (https://www.at4re.net/f/forum-5.html)
+--- قسم : البرمجة بلغة باسكال و الدلفي - Pascal & Delphi (https://www.at4re.net/f/forum-18.html)
+--- الموضوع : Delphi Conversion String To Hex (/thread-551.html)
Delphi Conversion String To Hex - هـآوي - 09-02-2019
السلام عليكم ورحمة الله وبركاتة
فونكشن تحويل السترنغ الى هكس
فونكشن تحويل السترنغ الى هكس
Function StrToHex(Str:String) : String;
var i,b:integer; h :String;
begin
for i := 1 To Length(Str) do
begin
b := (Ord (Str[i]) );
h := IntToHex(b,2) ;
Result := Result + h;
end;
end;
RE: Delphi Conversion String To Hex - x-member - 09-02-2019
تم اختصار 3 اسطر , احب العدد 7
Function StrToHex(str1:string):string;
var i : integer; str2:string;
begin
for i := 1 to length(str1) do
str2 := str2 + IntToHex(ord(str1[i]),2);
result := str2;
end;