计算机二级DELPHI基础:Delphi基础语句总结计算机二级考试

文章作者 100test 发表时间 2009:04:09 22:57:51
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级二级考试的朋友,百考试题提示2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　{　No.1 判断逻辑类型 }
　　var B: Boolean.
　　begin
　　B := Boolean(2). //这样只是为了调试//B := True.
　　if B = True then ShowMessage(\B = True\). //不建议//不安全
　　///////
　　if B then ShowMessage(\B\). //建议//简短
　　end.
　　var B: Boolean.
　　begin
　　if Edit1.Text = \是\ then //不建议//烦琐
　　B := True
　　else B := False.
　　///////
　　B := Edit1.Text = \是\. //建议//简短
　　end.
　　{ No.2 临时SQL查询 }
　　begin
　　QueryTemp.Close.
　　QueryTemp.SQL.Text := \SELECT SUM(金额) AS 合计 FROM 销售表\.
　　QueryTemp.Open. //不建议//数据没有关闭造成资源浪费
　　ShowMessage(Query1.FieldByName(\合计\).AsString).
　　/////
　　QueryTemp.SQL.Text := \SELECT SUM(金额) AS 合计 FROM 销售表\.
　　QueryTemp.Open.
　　ShowMessage(Query1.FieldByName(\合计\).AsString).
　　QueryTemp.Close. //建议用//使用完就关闭
　　end.
　　{ No.3 获取记录数 }
　　var
　　vRecordCount: Integer.
　　begin
　　Query1.SQL.Text := \SELECT * FROM Table1\. //不建议//严重浪费资源，会取得很多不必要得信息
　　Query1.Open.
　　vRecordCount := Query1.RecordCount.
　　Query1.Close.
　　/////
　　Query1.SQL.Text := \SELECT COUNT(*) AS 记录数 FROM Table1\. //建议//快速有效、只处理一条记录
　　Query1.Open.
　　vRecordCount := Query1.FieldByName(\记录数\).AsInteger.
　　Query1.Close.
　　ShowMessage(IntToStr(vRecordCount)).
　　end.
　　{ No.4 字段赋值 }
　　begin
　　Table1.Edit.
　　Table1.FieldByName(\姓名\).AsString := Edit1.Text. //不建议
　　Table1.FieldByName(\日期\).AsDateTime := Date.
　　/////
　　Table1[\姓名\] := Edit1.Text. //建议//简短、扩充性好
　　//Table1.Fieldvalues[\姓名\] := Edit1.Text. //Borland建议的方法。以及Paramvalues[]
　　Table1[\日期\] := Date.
　　end.
　　{ No.5 使用Self指针 }
　　begin
　　Edit1.Parent := Form1. //不建议//Form1只是一个变量//如果没有分配资源怎么办？
　　///////
　　Edit1.Parent := Self. //建议
　　end.
　　{ No.6 遍历数据集 }
　　var
　　I: Integer.
　　begin
　　Query1.First.
　　for I := 0 to Query1.RecordCount - 1 do begin //不建议//容易被影响
　　Query1.Next.
　　{}.
　　end.
　　/////
　　Query1.First.
　　while not Query1.Eof do begin //建议
　　{ }
　　Query1.Next.
　　end.
　　end.
　　{ No.7 利用Sender参数，使代码通用 }
　　procedure TForm1.Edit1Change(Sender: TObject).
　　begin
　　if Edit1.Text = \\ then //不建议
　　Edit1.Color := clRed.
　　///////
　　if TEdit(Sender).Text = \\ then //建议//复制到EditXChange中很方便
　　TEdit(Sender).Color := clRed.
　　end.