الترقيم الأوتوماتيكي أو الألي

[chardoneret]

السلام عليكم
في المرفقات ملف يوضح السؤال حول الترقيم الأوتوماتيكي أو الألي

[محمد عبد العزيز]

السلام عليكم
أولا اخي اطرح سؤالك بالموضوع/المشاركة
ثانيا لا ترفق ملفات تنفيذية  exe بالمنتدى

مع انني حملت المرفق لكن حتى الان لم افهم السؤال: ما المشكل ؟

[chardoneret]

المشكلة تتمثل في مايلي
أريد أن أقوم بوضع مثلا رقم 15 في edit1.text
ثم الضغط على زر ترتيب الملفات ثم تحجز الأرقام أليا في الجقل tartib لتكون 16 17 18 19 20 ......
أرحو ان الفكرة وصلت
و عذرا مسبقا على

[محمد عبد العزيز]

كود :

procedure TF_TOUT.BT_TARTIBClick(Sender: TObject); begin  ADOTable1.First;  K:=0;  if Edit1.Text<>'' then K:=StrToInt(Edit1.Text);    while (not (ADOTable1.eof)) do  begin    ADOTable1.Edit;    ADOTable1.FieldByName('TARTIB').clear;    ADOTable1.FieldByName('TARTIB').AsInteger := k;    ADOTable1.Post;    k := K + 1;    ADOTable1.Next;  end;  ADOTable1.First; end;

[chardoneret]

الحمد لله
زادك الله علما و شرفا و قدرا أخي عبد العزيز و جعلها الله في ميزان والديك
شكرا أولا و أخيرا