1

对 delphi 和数据库编程一般来说是新手，但我很好奇是否有更好的方法来交换 TDataset 中的记录？我已经阅读了一些帮助，但找不到任何明显的方法。目前，我实施了一个程序来将记录向下移动到数据集，直到它们到达 Eof 标记。但是，当我到达数据中的最后一条记录时，我遇到了一些奇怪的错误。我所拥有的只是实现了一个标准的数组式交换例程，试图在处理活动记录时保留数据和诸如此类的东西。

到目前为止的代码

procedure TForm2.btnDownClick(Sender: TObject);
var
   sTmp,sTmp2  : string;
   iTmp,iTmp2  : integer;
begin
   tblMatched.DisableControls;
   if ( tblMatched.Eof <> true ) then
   begin
      // Grab data to swap
      tblMatched.GotoBookmark( tblMatched.GetBookmark );
      iTmp := tblMatched.Fields[0].AsInteger;
      sTmp := tblMatched.Fields[1].AsString;
      tblMatched.Next;
      iTmp2 := tblMatched.Fields[0].AsInteger;
      sTmp2 := tblMatched.Fields[1].AsString;

      // Swap data
      tblMatched.Prior;
      tblMatched.Edit;
      tblMatched.Fields[0].Value := iTmp2;
      tblMatched.Fields[1].Value := sTmp2;

      tblMatched.Next;
      tblMatched.Edit;
      tblMatched.Fields[0].AsInteger := iTmp;
      tblMatched.Fields[1].AsString := sTmp;
   end;
   tblMatched.EnableControls;
end;
4

1 回答 1

3

看起来您正在使用内存中的数据集，例如 TClientDataset。如果您只是在数据集上放置一个索引，它会为您保持有序，因此您不必手动重新排列它们。只需根据您希望使用的任何标准设置索引即可。

于 2010-07-13T20:11:22.730 回答