13-02-2016, 02:24 PM
(12-02-2016, 06:56 PM)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;كود :
edt2 يضهر فيها cleالطريقة باستخدام حلقة تمر بجميع cle الحساباتccp المخزنة في جدولك
بالنسبة للطلب الثاني ساحاول مساعدك فيه لانه ليس كود واحد و ربما لن تفهمه لانه مرتبط بمتغيرات كثيرة في البرنامج
احاول مساعدك كي تكتبه بنفسك و تتعلم انا ايضا مررت بما مررت به انت لا تياس
بالتوفيق لك
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب