تقييم الموضوع :
  • 6 أصوات - بمعدل 3.67
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi Conversion String To Hex
#1
Thumbs Up 
السلام عليكم ورحمة الله وبركاتة

فونكشن تحويل السترنغ الى هكس 
 
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;
أعضاء أعجبوا بهذه المشاركة : x-member
#2
تم اختصار 3 اسطر , احب العدد 7  lool
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;
أعضاء أعجبوا بهذه المشاركة : هـآوي , rce3033


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم