rober

أخي الكريم لا أملك الـ VCL Skin لكن عند تنفيذ الملف التنفيذي تظهر الرسالة التي في الصورة المرفقة تأكد من قيمة skindata1.skincontrols إذا ممكن أن تتضع رابط للـ VCL Skin الذي تستخدمه

أخي الكريم ممكن ترفع الـ vcl skin و أحاول أساعد بكل الأحوال تأكد من قيم خصائص الـ skin data

السلام عليكم أخي الكريم الملف المرفق هو عبارة عن مثال موجود مع دلفي 5 قمت بإرفاق ملف قاعدة البيانات داخله و هو بلاحقة GDB في المثال أضغط على Browse ثم Defin Query لعمل إستعلام عن تاريخ ثم قم بالنقر على Activate Query و لاحظ ماذا يحصل أرجو أن يكون فيه ما تريد و…

السلام عليكم أعتذر على عدم تحميل الملفات على المنتدى مباشرة وذلك بسبب الحجم الملف الأول : MySQL Server 5.0 من هنا الملف الثاني : MySQL GUI 5.0 من هنا الملف الثالث : MicroOlap mysqldac full من هنا هذا ما أملك أما بالنسبة PHP My Admin و Zeos فالأخ Swift هو مفيدن…

السلام عليكم أخي الكريم swift إن كنت ترغب و إذا سمحت أن أقدم ما أملك للمساعدة في العمل على الـ MySQL أنا لدي MySQL 5.0 و GUI رائع لتسهيل العمل بإنشاء قواعد البيانات و العمليات التي يمكن عملها و لدي الـ MySQL DAC لربطها مع الدلفي و أنا مستعد لتقديم ما أعرفه و م…

من وجهة نظري أقدم الحل الذي أوجدته لا نرى الأخوة الخبراء و أفكارهم سواءً أسئلة أو أجوبة نرجو أن يكونو يحضرون ما هو ذو قيمة :cash: فكل تأخيرة و فيها خيرة procedure TForm1.Button1Click(Sender: TObject); var num:real; begin num := strtofloat(edit2.text)/strtofloa…

الله يعطيك ألف عافية جاري التحميل

بالنسبة لي Mysql و delphi مجرد رأي لكن يرجى و ضع مقارنة كما ذكر الأخ رامي

السلام عليكم و الله موضوع جميل جدا يجعل الشخص يفكر بأكثر من طريقة لحل الأمور لا أدري إن كان سؤالي مهم لكن أحببت أن أشارك ما هي أفضل طريقة لحساب النسبة المئوية لرقم مقابل رقم مثال : نسبة الرقم 2000 بالنسبة للرقم 71950 = 2.78% بالتوفيق

تم أيجاد حل لكن بغير مثال يمكن أستخدام الالحل على المثال السابق طبعا procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); var col,row : integer ; begin if key = char(VK_RETURN) then begin col := stringgrid1.Col ; row := stringgrid1.Row ; if co…

السلام عليكم أخواني الأكارم عند أدخال قيمة في أي سطر في العمود الأول من الـ stringgrid عمل فلترة في الجدول (table) عن الـرقم المطلوب(ID) ثم تحميل باقي الخلايا من الجدول إلى الـ stringgrid الكود هو التالي لكن ما هو الحدث var id : integer ; begin if ( col = 0 ) …

سؤال الأخ هو هل يمكن أضافة أكثر من record فارغ في الـ DBGrid ليس الترقيم التلقائي و هو سؤالي في الوقت الراهن فهل من طريقة

أخي الكريم السؤال هو تحويل الثواني 16010 إلى ساعات و دقائق و ثواني يعني الرقم هو 16010 ثانية نريد تحويله إلى hh:mm:ss

يا جماعة لسا في سؤال تاني شو نسيتوه و لا ماحدش عارف :haha: شو الجواب إذا كان لديك العدد التالي : 16010 أوجد طريقة تكتبه فيها بتنسيق الوقت ملاحظة ليس السؤال حكراً علي بل هو لجميع أفراد المنتدى أريد أن اسأل 007GB هل الناتج هو 04:45:12

أنا وعدت و وعد الحر دين لكن أرجو منكم أن تصبرو علي قليلا ريثما أنهي المشروع الذي بين يدي أرجو منكم تقبل عذري و الوعد قادم بعون الله سلامي و فائق أحترامي للجميع

جزاكم الله ألف ألف خير على هذا العمل الرائع عندنا مقولة في سوريا ( المكتوب مبين من عنوانه ) أنا قرأت صفحة المحتوى عنجد يعطيكم العافية أعرف أني لم أقرأ الكتاب بعد لكن متى سيصدر الكتاب الثاني :evil: :haha: جاري القراءة

بالنسبة لسؤالي أول ما تكون عندي فكرة بجمال أفكارك سأضعها و بالنسبة للسؤال الأخير begin edit2.Text := copy(edit1.Text,1,2) + ':' + copy(edit1.Text,3,2) + ':' + copy(edit1.Text,5,length(edit1.Text)) ; end; في حال كانت قيمة الأديت 1 هي 16010 ستكون الأديت 2 16:01:…

procedure TForm1.Button1Click(Sender: TObject); var num : integer ; begin num := strtoint(edit1.Text) ; if num mod 2 = 0 then showmessage('conjugal') else showmessage('single') ; end;

السلام عليكم المكتبة مجانية و مفتوحة MicroOlap_mysqldac_full.zip

كمشاركة من قسم الدلفي OOP_IN_Delphi_Arabic.pdf