delphi ¾Ö²¿±äÁ¿¸³Öµ ÎÊÌâ ¼± ÔÚÏß

for i:= 0 to SelectedList.Count-1 do
        begin
        GotoBookmark(SelectedList.items[i]);
        strOldReg_ID:='';
        //OldAcc_date :=StrToDate(trim(FieldByName('acc_date').AsString));
        strOldReg_ID :=trim(FieldByName('register_id').AsString);
        if (strOldReg_ID <> '') then
        begin
          strNewReg_ID :=CreateRegisterID;

          OldAcc_date :=FormatDateTime('yyyy-mm-dd',StrToDate(trim(FieldByName('acc_date').AsString)));
          NewAcc_date :=FormatDateTime('yyyy-mm-dd',dbNewDate.Date);
          date_bt :=Trunc(StrToDate(NewAcc_date)-StrToDate(OldAcc_date));
          strUpdate := Format(strUpdate,[strNewReg_ID,StrToInt(strOldReg_ID),NewAcc_date,strOldReg_ID)]);          strLogUpdate :='update flo_actlog f set f.signdate=signdate+%d,f.completedate=completedate+%d,f.bpactid=''%s'' where  BPACTID=''%s''';
          strLogUpdate := Format(strLogUpdate,[date_bt,date_bt,strNewReg_ID,copy(strOldReg_ID,2,7)]);