تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية استقبال اي اسم تحويله الي الهكس
#1
السلام عليكم ورحمة الله 
اخواني اريد معرفة كيفية استقبال اي اسم من Edit وتحويله الي Hex ومن ثم جمع اعداد ال Hex 
وطباعتهم في Edit اخر بلغة الدلفي
رَبِّ إِنِّي لِمَا أَنْزَلْتَ إِلَيَّ مِنْ خَيْرٍ فَقِيرٌ 
تم الشكر بواسطة:
#2
مرحبا , قم بعمل فورم يحتوي على 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);
To avoid mistakes, you need to gain experience; To gain experience, you need to make mistakes
تم الشكر بواسطة: EarthMan123 , Polia
#3
(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 بعد الأقواص
رَبِّ إِنِّي لِمَا أَنْزَلْتَ إِلَيَّ مِنْ خَيْرٍ فَقِيرٌ 
تم الشكر بواسطة:
#4
(14-01-2020, 12:07 PM)Polia كتب : أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص

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


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


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