mo_zamzam

ممكن شرح طريقه الادخال فى قواعد INTERBASE

procedure TForm34.DBCheckBox13Click(Sender: TObject); begin IF DBCheckBox13.Checked = true then IBQuery1.SQL.clear; IBQuery1.SQL.Add('update setup set m_2_m = 1 '); IBQuery1.SQL.Add(' where id = 2 '); IBQuery1.Active:= true; IF DBCheckBox13.Checked = False the…

على جهازى شغاله سوف اجربه على جهاز اخر

هل استعمال strtoint هو نفس استعمال StrToInt64

التطبيق عبار عن شريط القوائم ما هو الخلل

مامعنى StrToInt64

عند اجراء العمليه تظهر رساله '4029047722'is not a valid integer value الكود edit2.Text:= inttostr ( strtoint(edit1.Text)* 25)+157889899 );; 4029047722 هو قيمه edit1.Text ما الخطاء او هل integer له قيمه كبرى

ونا كمان انا حملت الملف شغال 100% لا يوجد مشاكل شكرا كثيرا فعلا ترتيب جميل و تجميع ممتاز للاكواد نرجوا اضافته الى مكتبة الاكود لدينا

شكراا المثال var ini: TIniFile; res: string; begin // Create INI Object and open or create file test.ini ini := TIniFile.Create('D:\ini\data.ini'); try Label1.Caption:= ini.ReadString('moh', 'ServerName', 'default value'); // MessageDlg('Value of Section: ' + …

ممكن توضيح بكتابه ميثال

اسف الميثال منقول من الخ عروه كيف احدد ما يتم قرائته من الملف

ممكن ميثال عن ذلك

الميثال منقول من الخ عره كيف احدد ما يتم قرائته من الملف

var MailIni: TIniFile; begin MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Mail.ini'); with MailIni do begin S1:= ReadString('Pop3', 'ServerName', 'pop3.server.com'); end; MailIni.Free; end; كيف تحديد ما يقرا

لو اردنا خذف مجموعه من الملفات كلها تبدأ باسم moh و تنتهى بنهايه مختلفه التاريخ و الوقت كلها موجوده بفلدر واحد المقصود ان يظل بالفدر عدد معين من الملفات وليكن 20 ملف مثلا بحيث اذا ذاد عدد الملفات عن 20 اى اصبح21 يتم حذف الملف الذى يكون تاريخه اقرب وهكذا

شكراااااااااااااا فعلا التحليل منطقى مكن اضافه if not(reg.ValueExists('mo5')) then و if reg.ReadInteger('mo5') <> 1234 then تظهر showmessage هذة نسخه للعرض فقط ثم يفتح البرنامج وعند غلق البرنامج يتم حذف المفتاح 'mo5' من الريجستر بحث فى المره الاخرى عند فتح الب…

شكر يا استاذى على الرد لكن المشكله انه فى حاله عدم وجود 'mo' لا يتتحقق الشرط if (reg.ValueExists('mo')) and (reg.ReadInteger('mo') <> 2451547) then و يقتح البرنامج بدون مشكله او ظهور اى رساله اما اذا كان 'mo' موجود منقبل يتحقق الشرط if (reg.ValueExists('mo')) …

البرنامج يفتح دون التاكد من وجود if reg.ValueExists('mo') then if reg.ReadInteger('mo')<> 2451547 then ما العمل حتى لا يفتح البرنامج اذا لو تكن mo ,2451547 غير موجوده

المقصور ربط Edit2.textو Edit4.textوEdit3.text بالمكتوب فى commmand text editor الخاص بــــــIBQuery1 فى sql

كيف يمكن ربط المكتوب فى IBQuery1 فى commmand text editor select INACTIVE_CUSTOMERS.CUS_ID,INACTIVE_CUSTOMERS.CMP_NAME ,INACTIVE_CUSTOMERS.LASTACTIONDATE,INACTIVE_CUSTOMERS.CUS_ADDRESS,INACTIVE_CUSTOMERS.EMP_ID,INACTIVE_CUSTOMERS.CUS_TEL1,INACTIVE_CUSTOMERS.PER…