romanof

/index.ph...=0entry356398

:lol: :lol: procedure TForm1.Button1Click(Sender: TObject); var x:Integer; begin end; عموما اخي المتميز انا ما نسيتك انت عارف مشاغل (بعدما صرت مشرف ما حد قدي ) امزح ان شاء لن تشرق شمس الغد الا و طلبك موجود

يا اخي ابو محمد هو يقصد الخاصية Datasource الموجود في الObject Inspector بتاع الAdoQuery وليس المكون Datasource الذي الذي ستربطه بالAdoQuery1 وذلك بجعل الخاصية DataSet له تساوي 1 AdoQuery مثلا

تماما كيف ستمرر بارميتر من عندك ؟ إذا كان البارمتر من جدول اخر غير المربوط بالDatasource فلا بد كتابة اسم الجدول SELECT * FROM Orders O,N WHERE (O.CustNo = N.CustNo) وهذا يعني انه لاحاجة لاستخدام الDatasource اما إذا كان البارمترين من عنصر كونترول مثلا Edit فه…

ما شاء الله على ذكاء البنت اللهم لاحسد (خمسة خميسه ..حوش يا حواش ) وماشاء الله على الترجمة يا ELKING

إذا كنت فهمت كلامك صح معناها انهم يستخدمون علم التشفير(cryptography) اذا كان الامر كذلك فلا فرق بين دلفي او بيسك مجرد تنفيذ الخوارزمية وانتهي الامر هذه ليست افضل طريقة بل هذا هو التشفير بعينه

نقعد سنتين نحفظ اسم رئيس روسيا واول ما نحفظو يعيرو على طول

برفوا عليك اول مرة اجد عضوا يجد الحل ثم يقوم بنشره بارك الله فيك

رغم اني لم افهم قصدك تماما لكن مو مشكلة احيي نشاطك في المرة القادمة عند فتحك موضوع وتريد كتابة كود معين اتبع ما يلي 1. اضغط Enter داخل محرر النصوص الذي كتبت المشاركة داخله 2. فوق محرر النص ستجد زرا مكتوبا عليه code اضغط عليه ستظهر في محرر النصوص الكلمة code دا…

procedure TForm1.DBListBox1Click(Sender: TObject); var p:integer; s:string; begin s:=DBListBox1 .Items.Strings [DBListBox1 .ItemIndex]; p:=pos(' - ',s); delete(s,p,length(s)); //showmessage (s); ADOTable1 .edit; if ADOTable1 .Locate('id',s,[])then begin if ADO…

برافوا عليك المرة القادمة بدنا شي اصعب

procedure TForm1.Image1Click(Sender: TObject); begin image1.Visible :=not(Image1 .Visible ); //PlaySound('d:\game\Success',0,SND_ASYNC); form1.Panel1 .Visible :=true; if messagedlg('Play Again .....?',mtInformation ,[mbyes]+[mbno],0)=mryes then begin image1.Vi…

اوافقك الراي

في مجموعة الاحداث من Object Inspector يظهر سهم منسدل لا تضغط على السهم وانما انقر مرتين على الفراغ بجانب السهم وسترى الحدث مفعل تلقائيا

الحمدلله

وانا بالروسي --------------------------- Paint --------------------------- Сохранить изменения в файле "Безымянный"? --------------------------- Да Нет Отмена --------------------------- عليك حاجات غريبة يا غريب :lol: :lol:

مقالة ممتاز اظن اني قراته من مجلة العربي قبل سنوات

شكرا ولو انه عيب الواحد يطلع وفي عمالقة مثلكم كبار انت لا تحرمنا من وجودك والعدد راح يصير 3 اضعاف

with ADOQuery1 do begin with SQL do begin Clear; Add('SELECT EmpNo, LastName, FirstName, HireDate'); Add('FROM Employee'); end; Open; end; هذا انا على عجالة ساكمل لك الاجابة اصبر قليلا

اخي العزيز اقرا هذا الرابط http://www.cryer.co.uk/brian/delphi/wininet.htm ربما وجدت شيئا