我使用TSimpleDataSet欲將TBL_MSG資料表的資料備份至檔案，規則是按時間順序一次備份100筆5分鐘前之資料，備份完畢立即將資料自資料庫刪除。 但每次執行結果，只備份了50筆，請問我的作法有何問題嗎？(ps. TBL_MSG內含數千筆資料, 每筆皆已超過5分鐘) 資料庫：MS SQL Server 2000 / Windows 2000 Server Delphi：7.0 & dbExpress    

procedure BackupMsg;
var
 iLen, iResult: Integer;
 arrMsg: array[0..100] of Byte;
 buf: array of Byte;
 fs: TFileStream;
begin     // 建立新檔案
 fs := TFileStream.Create('c:\test.log', fmCreate);     with dbxsds do  // dbxsds: TSimpleDataSet
 begin
  Active := False;
  PacketRecords := 100;
  DataSet.CommandText := 'select top 100 * from TBL_MSG where (datediff(minute,TIME_RECEIVED,getdate())>5) order by TIME_RECEIVED';
  Active := True;      First;
  iResult := 0;
  while not Eof do
  begin
   iLen := FieldByName('MSG_LENGTH').AsInteger; // 讀出資料長度
   buf := FieldValues['MSG_DATA']; // 讀出資料內容, MSG_DATA: varbinary(100)
   CopyMemory(@arrMsg[0], buf, iLen); // 複製至arrMsg[]陣列
   fs.WriteBuffer(arrMsg, iLen); // 寫入檔案       Delete; // 刪除本筆資料
   Inc(iResult);
   Next;
  end; // while
  ApplyUpdates(0);
  Active := False;     end; //with     ShowMessage(Format('應備份100筆, 實際備份%d筆', [iResult]));    end;

// ...
  while not Eof do
  begin
   iLen := FieldByName('MSG_LENGTH').AsInteger; // 讀出資料長度
   buf := FieldValues['MSG_DATA']; // 讀出資料內容, MSG_DATA: varbinary(100)
   CopyMemory(@arrMsg[0], buf, iLen); // 複製至arrMsg[]陣列
   fs.WriteBuffer(arrMsg, iLen); // 寫入檔案       Delete; // 刪除本筆資料
   Inc(iResult);
   Next; // 這行拿掉試試
  end; // while
  ApplyUpdates(0);
  Active := False;     end; //with
 // ...
end;

--- Everything I say is a lie. --<-<-<@

可以了, 謝謝!    剛好也看到scottliou兄的說明: http://delphi.ktop.com.tw/topic.php?topic_id=18227

引言: while not eof 迴圈 我記得若Delete一筆資料時下一筆記錄會遞補所以應不須Next; 試看看用 first; while not eof do delete;