[Delphi]循环中的Next使用

5207

5207

组别:皇帝
性别:
生日:1983-12-1
积分:1849
帖子:720

2007-08-01 16:08 | 只看楼主 树型| 收藏| 小中大 1^#

[Delphi]循环中的Next使用

[复制到剪贴板]

CODE:

with adoData do
while not Eof do
begin
dEndDate := FieldByName('EndDate').AsDateTime;
dBeginDate := FieldByName('BeginDate').AsDateTime;
if dBeginDate > Today then
begin
Next;
Continue;
end;
if dEndDate = 0 then
iDays := DaysBetween(Today, dBeginDate)
else
iDays := DaysBetween(dEndDate, dBeginDate);
iValue := iValue + iDays + 1;
Next;
end;

上述代码中的循环中有两个地方使用到了Next，一处是Next之后Continue,一处是循环底部。
//在此Next并且下一步就Countinue，这样写法不知道是不是不太好。

下面的方法不知道是不是更好些

[复制到剪贴板]

CODE:

with adoData do
while not Eof do
begin
dEndDate := FieldByName('EndDate').AsDateTime;
dBeginDate := FieldByName('BeginDate').AsDateTime;
if dBeginDate <= Today then
begin
if dEndDate = 0 then
iDays := DaysBetween(Today, dBeginDate)
else
iDays := DaysBetween(dEndDate, dBeginDate);
iValue := iValue + iDays + 1;
end;

Next;
end;

这个方法直接将if包括了整个要运行的代码，这样Next只在一处出现。应该是更加明确了。

TOP

<<上一主题|下一主题>>

1/1页1 跳转到页