بعض الأفكار البسيطة بدلفي

[Manarsoft]

السلام عليكم
التعامل مع التعليمات التي تقبل True أو False

كود :

//Traditional code if CheckBox1.Checked then   Panel1.Visible := True else   Panel1.Visible := False; // Best code Panel1.Visible := CheckBox1.Checked; حذف كافة السجلات من قاعدة بيانات // Normal Code Table1.Close(); Table1.EmptyTable(); // Best Code using SQL DELETE FROM Table1 ... إرجاع قيمة متغير SQL الكثير يبحث عن كيفية إرجاع قيمة لكود SQL الطريقة: function TmyABSDB._sqlSelectSum(queryName: TABSQuery; tableName: string; fieldName: string): Real; begin queryName.Close(); queryName.SQL.Clear(); queryName.SQL.Text := 'SELECT SUM(' + fieldName + ') FROM ' + tableName; queryName.Active   := True; Result             := queryName.Fields[0].AsFloat; _sqlOpen(queryName, 'SELECT * FROM ' + tableName); // Refresh table end; الاستعمال: Edit1.Text := FloatToStr(_sqlSelectSum()ABSQuery1, 'AchatTable', 'Montant'); يمكنك إستبدال SELECT SUM بما يليق بك: AVG, COUNNT... الكود التالي يقوم بتحويل قيمة موجودة داخل Edit إلى أسم شخص حسب المتعارف عليه عالميا function TmyABSDB._StrToName(varName: string): string_; var fname, lname: string; begin varName := _ExtractStr(varName); lname   := AnsiLeftStr (varName, pos(' ', varName)-1); {Extract FirstName} lname   := Trim(UpperCase(lname)); fname   := AnsiRightStr(varName, length(varName) - pos(' ', varName)); {Extract LastName} fname   := Trim(_UpperFirstChar(fname)); Result  := lname + ' ' + fname; end; الاستعمال: Edit1.Text := _StrToName(Edit1.Text); مثلا: john smith يصبح JOHN Smith مع مراعاة أن يكون اللقب قبل الاسم ملاحظة: لقد قمت بحذف دالة تقوم باستبعاد الارقام والفواصل والنقاط للأسف لم أستطع التعامل جيدا مع محرر النصوص الخاص بالمنتدى فيما يخص الاكواد والتنسيق

[محمد عبد العزيز]

// Best Code using SQL
DELETE FROM Table1

وعليكم السلام
لو كتبت الكود احسن حتى يسهل النسخ/اللصق للمبتدئين والمتعلمين الجدد
وهذه لاختصار بعض الوقت  
torry.net/vcl/vcltools/codertools/ABSTools.zip

[Manarsoft]

لم أفهم قصدك
إن كنت تتحدث عن التعليمات فانا أريد شرح كيفية التعامل مع بعض اوامر SQL وكذا بعض الحيل الاخرى
حتى يستفيد المبتدأ.
هذا المكون هو من تطويري انا ولست أنسخ وألصق إن كنت تظن ذلك
انا من وضعه هناك وهو موجود في Google+

---

هناك نسختين، القديمة myABSDB والجديدة ABSTools

[محمد عبد العزيز]

احسن الظن يا اخي، وضعت الرابط كتشجيع لك وتسهل للمتتبع من كتابة الكود
بالنسبة انسخ/الصق انظر

كود :

حذف كافة السجلات من قاعدة بيانات // Normal Code Table1.Close(); Table1.EmptyTable(); // Best Code using SQL DELETE FROM Table1

من كان مبتدء يقوم بنسخ/لصق  DELETE FROM Table1 يظهر له دلفي خطأ
يعني لو كتبتها كاملة كان احسن للمتبع حيث ينسخ ويلصق الكود ثم يجرب

[mohamed49]

بارك الله فيك اخي ونفعنا الله بعلمك