这是我写的过程不妨参考一下 procedure(Table:TTable;DBG:TDBGrid); var BK:TBookMark; BK1:TBookMarkList; i,j:integer; begin try BK:=Table.GetBookMark; BK2:=DBG.SelectedRows; j:=DBG.SelectedRows.Count; for i:=0 to j-1 do //*当j为1时应另加判断* begin Table.GotoBookMark(Pointer(BK1[i]); end; finally DBG.SelectedRows.Clear; Table.FreeBookMark(BK); end; end;
这是我写的过程不妨参考一下 procedure(Table:TTable;DBG:TDBGrid); var BK:TBookMark; BK1:TBookMarkList; i,j:integer; begin try BK:=Table.GetBookMark; BK2:=DBG.SelectedRows; j:=DBG.SelectedRows.Count; for i:=0 to j-1 do //*当j为1时应另加判断* begin Table.GotoBookMark(Pointer(BK1[i]); end; finally DBG.SelectedRows.Clear; Table.FreeBookMark(BK); end; end;
procedure(Table:TTable;DBG:TDBGrid);
var
BK:TBookMark;
BK1:TBookMarkList;
i,j:integer;
begin
try
BK:=Table.GetBookMark;
BK2:=DBG.SelectedRows;
j:=DBG.SelectedRows.Count;
for i:=0 to j-1 do //*当j为1时应另加判断*
begin
Table.GotoBookMark(Pointer(BK1[i]);
end;
finally
DBG.SelectedRows.Clear;
Table.FreeBookMark(BK);
end;
end;
procedure(Table:TTable;DBG:TDBGrid);
var
BK:TBookMark;
BK1:TBookMarkList;
i,j:integer;
begin
try
BK:=Table.GetBookMark;
BK2:=DBG.SelectedRows;
j:=DBG.SelectedRows.Count;
for i:=0 to j-1 do //*当j为1时应另加判断*
begin
Table.GotoBookMark(Pointer(BK1[i]);
end;
finally
DBG.SelectedRows.Clear;
Table.FreeBookMark(BK);
end;
end;