delphi 这段 是什么意思？
procedure TForm1.DeleteDate;
var
LDateTime : TDateTime;
begin
//
LDateTime := sqlCashBankIn.fieldbyname('ENDDATETIME').AsDateTime;
sqlCashBankIn.Last;
while LDateTime = sqlCashBankIn.fieldbyname('ENDDATETIME').AsDateTime do
begin
sqlCashBankIn.Delete;
sqlCashBankIn.Prior;
end;
SaveData;
end;
[解决办法]
procedure TForm1.DeleteDate;
var
LDateTime : TDateTime;
begin
//
LDateTime := sqlCashBankIn.fieldbyname('ENDDATETIME').AsDateTime; //字段EndDateTime的内容存入LDateTime变量
sqlCashBankIn.Last; //移动到最后一行
while LDateTime = sqlCashBankIn.fieldbyname('ENDDATETIME').AsDateTime do
begin
sqlCashBankIn.Delete; //删除记录
sqlCashBankIn.Prior; //移动到上一行
end;
SaveData; //这个方法不知道如何删除的
end;
循环从最后一条记录开始删除，如果LDateTime = sqlCashBankIn.fieldbyname('ENDDATETIME').AsDateTime 为TRUE，则删除，否则跳出循环，程序完成
如果数据库的记录是这样的
ID ENDDATETIME
1 2012-1-1 11:11:11
2 2012-1-1 11:11:11
3 2012-1-1 11:11:12
4 2012-1-1 11:11:11
5 2012-1-1 11:11:11
6 2012-1-1 11:11:11
只会删除4，5，6
