دخول

Polia · 13-01-2020, 06:30 PM

السلام عليكم ورحمة الله
اخواني اريد معرفة كيفية استقبال اي اسم من Edit وتحويله الي Hex ومن ثم جمع اعداد ال Hex
وطباعتهم في Edit اخر بلغة الدلفي

**x-member**

مرحبا , قم بعمل فورم يحتوي على 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);

Polia

(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, 10:09 PM

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

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

دخول
إسم المستخدم :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني