كيف برمجة "ترقسم تلقائي" في الدلفي

[m.rabee]

السلام عليكم

هل يمكن استعمال دالة تكرار ربيت repeat

مالذي تقصده بالظبط?
وأين تريد استخدامها؟

[sadwolf]

الحل اتوقع في القائمة المتصله

Linked List

[kachwahed]

وعليكم السلام ورحمة الله
موضوع سابق:
http://www.delphi4arab.net/forum/showthr...p?tid=1515

[عبد الهادي]

مالذي تقصده بالظبط?

ليعذر لي الاستاذ الكريم بساطة افكاري
لكني اقصد استعمال دالة تكرار لتسجيل الافراد في برنامج الاخ الكريم صاحب الموضوع
اي انه يكرر الجزء الثابت ويكرر في الجزء الاخير الارقام الاربعة بدالة ربيت ، حيث كلما اضاف سجلا ثبت في الذاكرة الرقم المتوقف عنده
استخدامها ؟ هنا اشكال لكني اضع فكرتي البسيطة ..:p
ادراج زر في برمجة تكرار حيث لدينا الرقم المتوقف عنده مخزن سابقا ، عندها يبدأ التكرار منه في حال اضفنا سجلا او حذفنا
والله اعلم

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
فكرة أخرى يمكن استعمال السكيول لجلب آخر رقم مسجل ثم إضافة الواحد و في هذه الحالة لا يقع اي اختلاط للأرقام في حالة حذف رقم و لكن في حالة حذف رقمأقل من آخر رقم يبقى هذا الرقم فارغ في انتظار اية افكار أخرى:

فرضا أن الترقيم من الشكل: 00001/2013
لدينا جدول فيه الحقل الرقم و حقل العام لكي يعيد الرقم الى الواحد في العام الجديد

SQL .Active:=false;
SQL.Clear;

SQL.Text:='select max(a."num ") as "num " from "table" a where (a."annee" like "%'+(n)+'%")'; // : متغير يحمل العام الحاليN: حقل في الجدول لحمل العام الحالي annee
SQL .Active:=true;
i:= table. fieldbyname('num').asstring;متغير لحمل الرقم الناتج عن الاستعلام السابق//
s:=Copy((i),6,5);نتجاوز خمسة ارقام الخاصة العام//
if s='' then في حالة اول تسجيلة في الجدول//
s:='0';
table. fieldbyname('num').asstring:=inttostr(i+1);//إضافة واحد للترقيم الآلي

بالتوفيق