الفريق العربي للهندسة العكسية

نسخة كاملة : كيفية استقبال اي اسم تحويله الي الهكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله 
اخواني اريد معرفة كيفية استقبال اي اسم من Edit وتحويله الي Hex ومن ثم جمع اعداد ال Hex 
وطباعتهم في Edit اخر بلغة الدلفي
مرحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة 
 
 
function custom ( const s:string):string;
var i,k : integer;
begin
k := 0;
    for i := 1 to length(s) do
      begin
         k  := k + ord(s[i]);
      end;
      result := result + IntToHex(k,2);
end;

في حدث الضغط على ال Button  : 
edit2.text := custom(edit1.text);
(13-01-2020, 08:47 PM)Rever7eR كتب : [ -> ]مرحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة 

شكرا لك عزيزي مودتي وتقديري


(13-01-2020, 08:47 PM)Rever7eR كتب : [ -> ]رحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 

أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص
(14-01-2020, 12:07 PM)Polia كتب : [ -> ]أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص

معنى string بعد الاقواس أن الدالة ترجع القيمه من من نوع سلسله(string)