ความรู้สึกที่พบทางออนไลน์เป็นแรงบันดาลใจให้กับผู้เริ่มต้นและรวบรวมมัน!
ฉบับที่ 1 กำหนดประเภทตรรกะ}
var B: บูลีน;
เริ่ม
B: = บูลีน (2);
ถ้า b = true showMessage ('b = true');
-
ถ้า b showmessage ('b');
จบ;
var B: บูลีน;
เริ่ม
ถ้า edit1.text = 'ใช่' แล้ว // ไม่แนะนำ // trifty
b: = จริง
อื่น b: = false;
-
b: = edit1.text = 'ใช่';
จบ;
{No.2 Query SQL ชั่วคราว}
เริ่ม
querytemp.close;
queryTemp.sql.Text: = 'เลือกผลรวม (จำนวน) ทั้งหมดจากตารางการขาย';
querytemp.open;
ShowMessage (query1.fieldByName ('total'). assTring);
-
queryTemp.sql.Text: = 'เลือกผลรวม (จำนวน) ทั้งหมดจากตารางการขาย';
querytemp.open;
ShowMessage (query1.fieldByName ('total'). assTring);
querytemp.close;
จบ;
{ฉบับที่ 3 รับจำนวนระเบียน}
วาจา
VrecordCount: จำนวนเต็ม;
เริ่ม
query1.sql.text: = 'เลือก * จากตารางที่ 1';
Query1.open;
VRECORDCOUNT: = QUERY1.RECORDCOUNT;
Query1.close;
-
query1.sql.text: = 'เลือกจำนวน (*) เป็นหมายเลขบันทึกจากตารางที่ 1';
Query1.open;
VRECORDCOUNT: = QUERY1.FieldByName ('Records'). Asinteger;
Query1.close;
ShowMessage (inttoStr (VrecordCount));
จบ;
{No.4 การกำหนดฟิลด์}
เริ่ม
ตารางที่ 1.edit;
table1.fieldbyname ('ชื่อ'). assTring: = edit1.Text;
ตารางที่ 1.FieldByName ('วันที่'). ASDATETIME: = วันที่;
-
ตารางที่ 1 ['ชื่อ']: = edit1.text;
//table1.fieldValues [Name ']: = edit1.Text; และ paramvalues []
ตารางที่ 1 ['วันที่']: = วันที่;
จบ;
{No.5 โดยใช้ตัวชี้ตนเอง}
เริ่ม
edit1.parent: = form1; // ไม่แนะนำ // form1 เป็นเพียงตัวแปร // ฉันควรทำอย่างไรถ้าไม่มีการจัดสรรทรัพยากร
-
edit1.parent: = self;
จบ;
{No.6 Traversal ของชุดข้อมูล}
วาจา
ฉัน: จำนวนเต็ม;
เริ่ม
Query1.First;
สำหรับ i: = 0 ถึง query1.recordcount - 1 เริ่มต้น // ไม่แนะนำ // ง่ายต่อการได้รับผลกระทบ
query1.next;
-
จบ;
-
Query1.First;
ในขณะที่ไม่ Query1.eof เริ่มต้น // คำแนะนำ
-
query1.next;
จบ;
จบ;
{no.7 ใช้พารามิเตอร์ผู้ส่งเพื่อสร้างรหัสทั่วไป}
ขั้นตอน tform1.edit1change (ผู้ส่ง: tobject);
เริ่ม
ถ้า edit1.text = '' แล้ว // ไม่แนะนำ
edit1.Color: = clred;
-
ถ้า tedit (ผู้ส่ง) .text = '' แล้ว // แนะนำ // มันสะดวกมากที่จะคัดลอกลงใน editxChange
tedit (ผู้ส่ง) .Color: = clred;
จบ;
{No.8 ใช้ฟังก์ชั่นการแปลงเริ่มต้น}
วาจา
ฉัน: จำนวนเต็ม;
เริ่ม
i: = strtoint (edit1.text);
-
i: = strtointdef (edit1.text, 0); // คำแนะนำ // อ้างอิง strtofloatdef, strtodatedef ... แต่สิ่งเหล่านี้มีเฉพาะใน delphi6
จบ;
{No.9 Traversal Array}
วาจา
ฉัน: จำนวนเต็ม;
A: อาร์เรย์ [0..9] ของจำนวนเต็ม;
เริ่ม
สำหรับ i: = 0 ถึง 9 do // ไม่แนะนำ
A [i]: = i;
-
สำหรับ i: = ต่ำ (a) ถึงสูง (a) do // แนะนำ // การขยายที่ดี
A [i]: = i;
จบ;
{No.10 ใช้ค่าคงที่ Maxint}
เริ่ม
คำอธิบาย: = คัดลอก (edit1.text, 3, ความยาว (edit1.text) - 3 + 1);
-
คำบรรยายภาพ: = คัดลอก (edit1.text, 3, Maxint);
จบ;
{no.11 ฟังก์ชันผลลัพธ์ตัวชี้}
ฟังก์ชั่น funcname: บูลีน;
เริ่ม
funcname: = true;
-
ผลลัพธ์: = จริง;
จบ;
ฟังก์ชั่น funcsum (A: อาร์เรย์ของจำนวนเต็ม): จำนวนเต็ม;
var i: จำนวนเต็ม;
เริ่ม
ผลลัพธ์: = 0;
สำหรับ i: = ต่ำ (a) ถึงสูง (a) ทำ
ผลลัพธ์: = ผลลัพธ์ + a [i];
จบ;
{No.12 รหัสที่ต้องดำเนินการใช้ลอง ... ในที่สุด ... คำสั่งสิ้นสุด}
วาจา
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;
จบ;
จบ;