hanitaieb

السلام عليكم جربت المرفق على الدالفى 2009 و لم ينجح ... ضهرت مربعاة صغيرة . قمت بالتغيير التالى و نجحت ... تغيير نوع المتغير pData function TForm1.Drop(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; var aFmtEtc: …

مبروك للاخ على . -- -- -- اخى زكيري عبد العالي -- -- -- قميص جميل .

Clé De Produit من فضلكم .

نعم احسن بكثير من الاولى . و لو زدنا فى الاخير ملف PDF :wacko: يجمع كل هذه الدروس لزادت تحسنا .

لم ينجح معى Css + لم افهم فيه شىء . توصلت الى المرغوب فيه ... كود دالفى انسخ الكود FUNCTION TWebModule1 . Get_ListC ( ) : string ; VAR vQueryListC : TMyQuery ; Str , C : String ; I : LongWord ; BEGIN Str := '' ; I := 0 ; vQueryListC := TMyQuery . Create ( nil …

يا اخوانى درجة درجة انا لا افقه شىء فى Css ... محاولتى كانت على هذا الشكل : انسخ الكود Open ; WHILE NOT ( Eof ) DO BEGIN Case ( I mod 2 ) oF 0 : C := '#DAE6FC' ; 1 : C := '#F0F8FF' ; end ; str := str + '<TR> ' + '<td bgcolor="' + c + '">' + FieldByName ( 'ID_C…

لم يتكلم احد عن Turbo 2006 ... لا ادرى لمادا احبه كثيرا و اجد فيه راحتى . :D

اخى زكيرى نجح معى الكود لكن بهذا التعديل ... . لا ادرى ان كنت فى الطريق الصحيح ام لا . اخى زكرى اتمنا ان تذكر كل كبيرة و صغيرة متعلقة بالخطوات مهما كانت بساطتها ... لكى لا نتوه . :blink: اتمنا ان يتوفر لى الوقت لاستطيع المتابعة معكم . شكرا زكيرى .

اخى زكيري عبد العالي هل ممكن ان استعمل MySQL-Front لانشاء الجداول .

اخى زكيري عبد العالي تقريبا الفكرة التى تكونت عندى . الى حد الان .

نجحت . :wink:

طلال جرب تعطيل مضاد الفيروسات .

بارك الله فيك اخى زكيري عبد العالي نجحت . طلال جرب استعمال phptriad2-2-1.exe . انا استعملته مع تغيير اعدادات الاباش التى اشار اليها زكيري . لا يوجد اى مشكل . اممم مشكور .

انتضروا ... السؤال الرابع . لماذا يصدر خطاء فى الحالة التالية انسخ الكود function Getrit ( var S : String ) : String ; begin if S = 'C: P rogram Files B orland' then Result := ExtractFileName ( S ) else Exit ; end ; انسخ الكود Caption := Getrit ( 'C: P rogram …

اكمل اخى .. كيف يكون ثابت و يمكن تغير قيمة S كلما استعملنا الدالة .

لا يوجد اى فرق هنى و الله اعلم . انسخ الكود Function GetIt ( S : String ) : String ; begin Result := ExtractFileName ( S ) ; end ;

تعيد القيمة 0 لان الثابت التالى ('lo wo') غير موجود ضمن المتغير النصى S

السلام عليكم اخى زكيري عبد العالي هل البرنامج هو برنامج تطبيقى( مباشر بدون شرح ) او يحتوى على شروحات لخطوات انجازه . و السلام عليكم

:D

محاولة بسيطة مع امكانية استخراج اسماء الملفات و المجلدات انسخ الكود Function GetFilOrDir ( Path : String ; FilOrDir : Integer ) : TStringList ; var Str : String ; SearchRec : TSearchRec ; begin Result := TStringList . Create ; if FilOrDir > 1 then begin ShowMe…