بعض الأفكار البسيطة بدلفي - نسخة قابلة للطباعة

كود :
//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 مع مراعاة أن يكون اللقب قبل الاسم
ملاحظة: لقد قمت بحذف دالة تقوم باستبعاد الارقام والفواصل والنقاط

للأسف لم أستطع التعامل جيدا مع محرر النصوص الخاص بالمنتدى فيما يخص الاكواد والتنسيق