Kalimat yang direkomendasikan di Delphi

Perasaan yang ditemukan secara online sangat menginspirasi bagi pemula dan mengumpulkannya!

No.1 Tentukan Jenis Logika}

Var B: Boolean;

Mulai

B: = Boolean (2); // Ini hanya untuk debugging // b: = true;

jika b = true maka showmessage ('b = true'); // tidak direkomendasikan // tidak aman

///////////////////

Jika B maka Showmessage ('B'); // Saran // Pendek

akhir;

Var B: Boolean;

Mulai

jika edit1.text = 'ya' lalu // tidak direkomendasikan // trifty

B: = Benar

lain b: = false;

///////////////////

B: = Edit1.Text = 'Ya'; // Disarankan // Pendek

akhir;

{No.2 Kueri SQL sementara}

Mulai

Querytemp.close;

QueryTemp.sql.text: = 'pilih jumlah (jumlah) sebagai total dari tabel penjualan';

Querytemp.open; // tidak direkomendasikan // data tidak ditutup, menghasilkan pemborosan sumber daya

Showmessage (query1.fieldbyname ('total'). Astring);

///////

QueryTemp.sql.text: = 'pilih jumlah (jumlah) sebagai total dari tabel penjualan';

Querytemp.open;

Showmessage (query1.fieldbyname ('total'). Astring);

Querytemp.close; // disarankan untuk menggunakan // tutup setelah digunakan

akhir;

{No.3 Dapatkan jumlah catatan}

var

VRecordCount: Integer;

Mulai

Query1.sql.text: = 'Select * from Table1';

Query1.open;

vRecordCount: = query1.recordcount;

Query1.close;

///////

Query1.sql.text: = 'pilih Count (*) sebagai nomor catatan dari Table1';

Query1.open;

vRecordCount: = query1.fieldbyname ('Records'). AsInteger;

Query1.close;

Showmessage (inttoStr (vrecordcount));

akhir;

{No.4 Penugasan Bidang}

Mulai

Table1.Edit;

Table1.FieldByName ('Name'). Astring: = Edit1.Text;

Table1.FieldByName ('Date'). AsDateTime: = Tanggal;

///////

Table1 ['Name']: = Edit1.Text;

//Table1.fieldValues['name ']: = edit1.text; // Metode yang disarankan oleh Borland. dan paramvalues ​​[]

Tabel1 ['Date']: = Tanggal;

akhir;

{No.5 Menggunakan pointer mandiri}

Mulai

Edit1.parent: = form1; // tidak direkomendasikan // form1 hanyalah variabel // apa yang harus saya lakukan jika tidak ada sumber daya yang dialokasikan?

///////////////////

Edit1.parent: = self; // saran

akhir;

{No.6 Traversal of Dataset}

var

I: Integer;

Mulai

Query1.first;

untuk i: = 0 ke query1.recordcount - 1 do eet // tidak direkomendasikan // mudah terpengaruh

Query1.next;

{};

akhir;

///////

Query1.first;

Sedangkan tidak query1.eof do begin // saran

{}

Query1.next;

akhir;

akhir;

{No.7 Gunakan parameter pengirim untuk membuat kode umum}

Prosedur tform1.edit1change (pengirim: tobject);

Mulai

Jika edit1.text = '' lalu // tidak disarankan

Edit1.color: = clred;

///////////////////

Jika tedit (pengirim) .text = '' lalu // disarankan // Sangat nyaman untuk menyalinnya ke editxchange

Tedit (pengirim) .color: = clred;

akhir;

{No.8 Gunakan fungsi konversi default}

var

I: Integer;

Mulai

I: = strtoint (edit1.text); // tidak direkomendasikan

///////////////////

I: = strtointDef (edit1.text, 0); // saran // referensi strtofloatdef, strtodatedef ... tetapi ini hanya tersedia di delphi6.

akhir;

{No.9 Traversal Array}

var

I: Integer;

A: Array [0..9] dari Integer;

Mulai

untuk i: = 0 hingga 9 lakukan // tidak disarankan

A [i]: = i;

///////////////////

untuk i: = rendah (a) ke tinggi (a) do // disarankan // ekspansi yang baik

A [i]: = i;

akhir;

{No.10 menggunakan maxint constant}

Mulai

Keterangan: = Salin (Edit1.Text, 3, Length (Edit1.Text) - 3 + 1);

///////////////////

Keterangan: = Salin (Edit1.Text, 3, Maxint);

akhir;

{No.11 Hasil Fungsi Pointer}

Function Funcname: Boolean;

Mulai

Funcname: = true; // tidak direkomendasikan // dan tidak dapat digunakan sebagai variabel normal di sisi kanan nomor penugasan

///////////////////

Hasil: = Benar; // Saran // Ekspansi yang Baik

akhir;

Function Funcsum (A: Array of Integer): Integer;

Var I: Integer;

Mulai

Hasil: = 0;

untuk i: = rendah (a) ke tinggi (a) lakukan

Hasil: = Hasil + a [i]; // funcsum: = funcsum + a [i] tidak dapat digunakan;

akhir;

{No.12 Kode yang harus dieksekusi, gunakan coba ... akhirnya ... pernyataan akhir}

var

vStringList: TStringList;

Mulai

vStringList: = tStringList.create;

vStringList.LoadFromFile ('c: /temp.txt');

Showmessage (vStringlist.text);

vStringlist.free; // tidak direkomendasikan // jika terjadi pengecualian, sumber daya tidak akan dirilis

///////////////////

vStringList: = tStringList.create;

mencoba

vStringList.LoadFromFile ('c: /temp.txt');

Showmessage (vStringlist.text);

Akhirnya // saran // menegakkannya bahkan jika keluar muncul

vStringList.Free;

akhir;

akhir;

// Kasus lain 1

Mulai

Screen.cursor: = crhourglass;

mencoba

{Operasi yang memakan waktu}

Akhirnya

Screen.cursor: = crdefault;

akhir;

akhir;

// Kasus Lain 2

Mulai

Query1.disablecontrols;

mencoba

{Dataset operasional}

Akhirnya

Query1.enableControls;

akhir;

akhir;