الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب كود لتوليد ارقام+مكتبة اكواد عربية

بدأه EJR4M~007 في 6 يوليو 2012 · 3 رد · 1,589 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا اخوان انا جديد بعالم الدلفي

وكنت ابحث عن كود لتوليد ارقام لتصميم برنامج بسيط لتوليد ارقام ترتيبية (بالترتيب) وهو مكون من واجه تحتوي عل ثلاثة ازرار

الزر الاول: اضع فيه الرقم المبدئي مثلا 30

الزر الثاني:اضع فيه الرقم النهائي مثلا600

الزر الثالث: لتوليد الرقام وحفظها بملف نصي احدد انا مكان الحفظ

توضيح:

ببساطة اخواني اريد تصميم برنامج يزيل عني المشقة لتوليد مجموعة من الارقام الغير عشوائية الغير مكررة فانا احدد الرقم البداية والنهاية وهو يكتب هذه الارقام كلها يعني

30,31,32,33,34,595,596,597,598,599,600

المفروض انه سيكتب باقي الارقام كلها ويضعها في مستند نصي احفظه

اتمنى اخواني ان اكون وفقت في طرح الطلب

برجاء ايضا مكتبة الاكواد

بس تكون الرقام فوق بعضها

هكذا

30

31

32

33

.

.

.

.

599

600

#2

آسف لاختياري القسم الخاطيء

بس ما قدرت احذف الموضوع

#3

عزيزي المستجد

EJR4M~007

يمكنك أستخدام جملة التكرار For لإنجاز هذا العمل كما في المثال التالي:

var i:integer;
begin
for i:=30 to 600 do
begin
listbox1.items.add(inttostr(i));
end;
end;

بهذا يمكنك حفظ محتويات listbox1 في أي مكان تريده

من جد وجد ومن زرع حصد

#4

var i:integer;
begin
for i:=strtoint(edit1.taxt) to strtoint(edit1.taxt)do
begin
listbox1.items.add(inttostr(i));
end;
end;

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…