オンラインで見つかった感覚は、初心者にとって非常に刺激的で、それを集めます！
No.1ロジックタイプを決定}
var B：ブール;
始める
b：= boolean（2）;
b = trueの場合、showmessage（ 'b = true'）;
//////////////
bの場合、showmessage（ 'b'）; // short
終わり;
var B：ブール;
始める
edit1.text = 'yes'の場合//推奨されない// trifty
b：= true
else b：= false;
//////////////
b：= edit1.text = 'yes'; // short
終わり;
{No.2一時的なSQLクエリ}
始める
querytemp.close;
querytemp.sql.text：= '販売テーブルから合計としてselect sum（金額）を選択します';
querytemp.open;
showmessage（query1.fieldbyname（ 'total'）。asstring）;
//////
querytemp.sql.text：= '販売テーブルから合計としてselect sum（金額）を選択します';
querytemp.open;
showmessage（query1.fieldbyname（ 'total'）。asstring）;
querytemp.close; //使用後に閉じることをお勧めします
終わり;
{no.3レコードの数を取得}
var
vRecordCount：integer;
始める
query1.sql.text：= 'select * from table1';
query1.open;
vrecordCount：= query1.recordCount;
query1.close;
//////
query1.sql.text：= 'count（*）は、table1'からのレコード番号として選択されています
query1.open;
vrecordCount：= query1.fieldbyname（ 'records'）。asinteger;
query1.close;
showmessage（inttostr（vrecordcount））;
終わり;
{No.4フィールド割り当て}
始める
表1.edit;
表1.FieldByName（ 'name'）。asstring：= edit1.text;
表1.fieldbyname（ 'date'）。asdateTime：= date;
//////
Table1 ['name']：= edit1.text; //短い拡張
//table1.fieldvalues ['name ']：= edit1.text;およびパラメージ[]
Table1 ['date']：= date;
終わり;
{セルフポインターを使用してno.5}
始める
edit1.parent：= form1;
//////////////
edit1.parent：= self;
終わり;
{データセットのNo.6トラバーサル}
var
I：整数;
始める
query1.first;
i：= 0からquery1.recordcount -1 begin //推奨されない//影響を受けるのは簡単です
query1.next;
{};
終わり;
//////
query1.first;
query1.eofではありませんが、//提案
{}
query1.next;
終わり;
終わり;
{no.7センダーパラメーターを使用してコードを共通にする}
手順tform1.edit1change（sender：tobject）;
始める
edit1.text = ''の場合、//推奨されません
edit1.color：= clred;
//////////////
tedit（sender）.text = '' then //提案// editxchangeにコピーするのは非常に便利です
tedit（sender）.color：= clred;
終わり;
{no.8デフォルト変換関数を使用}
var
I：整数;
始める
i：= strtoint（edit1.text）; //
//////////////
i：= strtointdef（edit1.text、0）; // sugmintions //参照strtofloatdef、strtodatedef ...しかし、これらはdelphi6でのみ利用可能です。
終わり;
{No.9トラバーサルアレイ}
var
I：整数;
A：整数の配列[0..9]。
始める
i：= 0から9の場合//推奨されません
a [i]：= i;
//////////////
i：= low（a）〜high（a）do //提案//良好な拡張
a [i]：= i;
終わり;
{no.10はmaxint定数を利用します}
始める
キャプション：= copy（edit1.text、3、length（edit1.text）-3 + 1）;
//////////////
キャプション：= copy（edit1.text、3、maxint）;
終わり;
{No.11結果関数ポインター}
関数funcname：boolean;
始める
funcname：= true;
//////////////
結果：= true; //良い拡張
終わり;
関数funcsum（a：整数の配列）：整数;
var i：整数;
始める
結果：= 0;
i：= low（a）〜high（a）do
結果：= result + 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;
終わり;
終わり;