فيما يتعلق بحفظ حقل في ملف نصي

[medreg]

اخي باسم بارك الله فيك فعلا لقد وجدت ببرنامجك انشاء الملف وفحصه
وان لم يكن هناك إحراج
فيكفيني ان تعطيني كود الإنشاء لملف النصي وكود فحص رقم الحساب
حتى اتمكن من اضافتهم لبرنامج الاجور الذي بحوذتي

لا يوجد احراج اخي والبخيل لجنهم كما يقال
بالنسبة لكود حسابcle من ccp هو سهل تفضل

كود :

procedure TForm13.btn1Click(Sender: TObject); var i,som:Integer; begin som:=0; for i:=1 to Length(edt1.Text) do som:=som+strtoint(edt1.text[i])*( (4+ Length(edt1.Text))-i); edt2.Text:=IntToStr(som); edt2.Text:=edt2.Text[Length(edt2.Text)-1]+edt2.Text[Length(edt2.Text)]; end;

تضعه في حدث الزر وتستعمل اثنان   edite  واحدة تضع في ccp والاخرى

كود :

edt2 يضهر فيها cle

بعد دلك للتاكد ان الحسابات ccp المدخلة صحيحة تقوم بمقارنة cle المدخل و المحفوظ في جدول عندك مع cle المحسوب كما هو مبين في الكود السابق
الطريقة باستخدام حلقة تمر بجميع cle  الحساباتccp   المخزنة في جدولك
بالنسبة للطلب الثاني ساحاول مساعدك فيه لانه ليس كود واحد و ربما لن تفهمه لانه مرتبط بمتغيرات كثيرة في البرنامج 
احاول مساعدك كي تكتبه بنفسك و تتعلم انا ايضا مررت بما مررت به انت لا تياس
بالتوفيق لك

بارك الله فيك يا أخي باسم وجزاك الله عنا خير الجزاء
ما هي القاعدة لحساب RIP
ومازلت انتظر باقي الطلب