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;
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;
varvrecordcount: 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;
begin
table1.edit;
table1.fieldbyname('姓名').asstring := edit1.text; //不建議
table1.fieldbyname('日期').asdatetime := date;
/table1['姓名'] := edit1.text; //建議//簡短、擴充性好
//table1.fieldvalues['姓名'] := edit1.text; //borland建議的方法。以及paramvalues
table1['日期'] := date;
end;
begin
edit1.parent := form1; //不建議//form1只是乙個變數//如果沒有分配資源怎麼辦？
///edit1.parent := self; //建議
end;
vari: 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;
procedure tform1.edit1change(sender: tobject);
begin
if edit1.text = '' then //不建議
edit1.color := clred;
///if tedit(sender).text = '' then //建議//複製到editxchange中很方便
tedit(sender).color := clred;
end;
vari: integer;
begin
i := strtoint(edit1.text); //不建議
///i := strtointdef(edit1.text, 0);//建議//參考strtofloatdef,strtodatedef....不過這些只有delphi6才有
end;
vari: integer;
a: array[0..9] of integer;
begin
for i := 0 to 9 do //不建議
a[i] := i;
///for i := low(a) to high(a) do //建議//擴充性好
a[i] := i;
end;
begin
caption := copy(edit1.text, 3, length(edit1.text) - 3 + 1); //不建議
///caption := copy(edit1.text, 3, maxint); //建議//嘻嘻，少計算一次
end;
function funcname: boolean;
begin
funcname := true; //不建議//並且放在賦值號右邊不能當普通變數
///result := true; //建議//擴充性好
end;
function funcsum(a: array of integer): integer;
var i: integer;
begin
result := 0;
for i := low(a) to high(a) do
result := result + a[i]; //可不能用 funcsum := funcsum + a[i];
end;
varvstringlist: tstringlist;
begin
vstringlist := tstringlist.create;
vstringlist.loadfromfile('c:temp.txt');
showmessage(vstringlist.text);
vstringlist.free; //不建議//如果出現異常資源將無法釋放
///vstringlist := tstringlist.create;
tryvstringlist.loadfromfile('c:temp.txt');
showmessage(vstringlist.text);
finally //建議//即使出現exit都會執行
vstringlist.free;
end;
end;
//其他情況1
begin
screen.cursor := crhourglass;
tryfinally
screen.cursor := crdefault;
end;
end;
//其他情況2
begin
query1.disablecontrols;
tryfinally
query1.enablecontrols;
end;
end;
Delphi程式設計中建議使用的語句
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 edi...
Delphi中選擇語句的使用
if then語句的使用 方式一 if then.這裡又可以寫成兩種,但是建議一句的不加begin 多句的加begin if a 0 then 語句1 或if a 0 then begin 語句1 這裡說明一下如果只有乙個語句也可以用begin.但是語句後邊 可寫可不寫.建議按規定的來.語句1 en...
delphi中sql語句字元連線的寫法
string querystring querystring select from tabletest where mpgg like bh 此處sql語句也就是select from tabletest where mpgg like 12 比如bh為12 因為此處的單引號類似於c 中的轉義字元...