الشعور الموجود على الإنترنت ملهم للغاية للمبتدئين وجمعه!
رقم 1 تحديد نوع المنطق}
فار ب: منطقية ؛
يبدأ
ب: = منطقية (2) ؛
إذا كان B = صحيح ثم ShowMessage ('b = true') ؛
/////////////////////
إذا كان B ثم ShowMessage ('b') ؛
نهاية؛
فار ب: منطقية ؛
يبدأ
إذا edit1.text = 'yes' ثم // غير موصى به // trifty
ب: = صحيح
آخر ب: = خطأ ؛
/////////////////////
B: = edit1.text = 'yes' ؛
نهاية؛
{No.2 SQL Query}
يبدأ
QueryTemp.Close ؛
querytemp.sql.text: = 'SELECT SUM (المبلغ) على النحو الإجمالي من جدول المبيعات' ؛
QueryTemp.Open ؛
ShowMessage (query1.fieldbyname ('total'). assstring) ؛
///////
querytemp.sql.text: = 'SELECT SUM (المبلغ) على النحو الإجمالي من جدول المبيعات' ؛
QueryTemp.Open ؛
ShowMessage (query1.fieldbyname ('total'). assstring) ؛
querytemp.close
نهاية؛
{رقم 3 احصل على عدد السجلات}
var
vrecordcount: عدد صحيح ؛
يبدأ
Query1.SQL.Tex
Query1.Open ؛
vRecordCount: = Query1.RecordCount ؛
Query1.Close ؛
///////
Query1.SQL.Tex
Query1.Open ؛
vRecordCount: = Query1.FieldByName ('Records'). asinteger ؛
Query1.Close ؛
ShowMessage (inttoStr (vRecordCount)) ؛
نهاية؛
{رقم 4 التعيين الحقل}
يبدأ
Table1.Edit ؛
Table1.FieldByName ('name'). Assstring: = edit1.text ؛
Table1.FieldByName ('date'). asdatetime: = date ؛
///////
Table1 ['name']: = edit1.text ؛
//table1.fieldvalues budap'name ']: = edit1.text ؛ و paramvalues []
Table1 ['Date']: = Date ؛
نهاية؛
{رقم 5 باستخدام المؤشر الذاتي}
يبدأ
edit1.parent: = form1 ؛
/////////////////////
edit1.parent: = الاقتراحات
نهاية؛
{No.6 اجتياز مجموعة البيانات}
var
أنا: عدد صحيح.
يبدأ
Query1.First ؛
بالنسبة إلى i: = 0 to query1.RecordCount - 1 لا تبدأ // غير موصى بها // من السهل أن تتأثر
Query1.Next ؛
{} ؛
نهاية؛
///////
Query1.First ؛
في حين لا Query1.eof تبدأ // اقتراحات
{}
Query1.Next ؛
نهاية؛
نهاية؛
{رقم 7 استخدم معلمات المرسل لجعل الكود شائعًا}
الإجراء tform1.Edit1Change (المرسل: tobject) ؛
يبدأ
إذا edit1.text = '' ثم لا ينصح
edit1.color: = clred ؛
/////////////////////
إذا كان TEDIT (مرسل) .TEXT = '' ثم // مقترح // يكون من المناسب نسخه إلى editxchange
TEDIT (المرسل). الألوان: = clred ؛
نهاية؛
{رقم 8 استخدم وظيفة التحويل الافتراضية}
var
أنا: عدد صحيح.
يبدأ
i: = strtoint (edit1.text) ؛
/////////////////////
i: = strtointdef (edit1.text ، 0) ؛ // اقتراحات // المرجعية strtofloatdef ، strtodatedef ... ولكن هذه متوفرة فقط في delphi6.
نهاية؛
{No.9 Traversal Array}
var
أنا: عدد صحيح.
ج: صفيف [0..9] من عدد صحيح ؛
يبدأ
لأني: = 0 إلى 9 do // غير مستحسن
A [i]: = i ؛
/////////////////////
ل I: = منخفض (أ) إلى ارتفاع (أ) do // مقترح // توسيع جيد
A [i]: = i ؛
نهاية؛
{No.10 يستخدم MaxInt ثابت}
يبدأ
Caption: = copy (edit1.text ، 3 ، length (edit1.text) - 3 + 1) ؛
/////////////////////
Caption: = Copy (edit1.text ، 3 ، maxint) ؛
نهاية؛
{رقم 11 مؤشر وظيفة النتائج}
وظيفة funcname: منطقية ؛
يبدأ
funcname: = صحيح ؛
/////////////////////
النتيجة: = اقتراحات//توسيع جيد
نهاية؛
وظيفة funcsum (a: مجموعة من عدد صحيح): عدد صحيح ؛
var i: integer ؛
يبدأ
النتائج: = 0 ؛
لأني: = منخفض (أ) إلى ارتفاع (أ)
النتيجة: = النتيجة + A [i] ؛
نهاية؛
{No.12 الرمز الذي يجب تنفيذه ، استخدم المحاولة ... أخيرًا ... عبارة end}
var
VStringList: TstringList ؛
يبدأ
VStringList: = tstringList.create ؛
vStringList.loadfromfile ('c: /temp.txt') ؛
ShowMessage (VStringList.text) ؛
VStringList.free ؛
/////////////////////
VStringList: = tstringList.create ؛
يحاول
vStringList.loadfromfile ('c: /temp.txt') ؛
ShowMessage (VStringList.text) ؛
أخيرًا // اقتراحات // فرضه حتى لو ظهر مخرج
vStringList.free ؛
نهاية؛
نهاية؛
// حالات أخرى 1
يبدأ
screen.cursor: = crhourglass ؛
يحاول
{عملية مستهلكة للوقت}
أخيراً
screen.cursor: = crdefault ؛
نهاية؛
نهاية؛
// حالات أخرى 2
يبدأ
Query1.DisableControls ؛
يحاول
{مجموعة البيانات التشغيلية}
أخيراً
Query1.EnableControls ؛
نهاية؛
نهاية؛