
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">

<META content="MSHTML 6.00.6000.16762" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV><FONT size=2>I have&nbsp;a strange problem. I have a dbgrid and am moving 

records up and down with buttons. (Delphi4)</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>The routine works </FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>If I uncomment the bookmark, it displays&nbsp;wrong figures in 

the seq and seq2 columns on the record I was moving.</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>If I move a line and close the application,&nbsp;reopen 

it,&nbsp; the figures are correct. It seem that only the display is incorrect 

when moving.</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>SEQ&nbsp;&nbsp; SEQ2&nbsp;&nbsp; Desc</FONT></DIV>

<DIV><FONT size=2>20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tool Select</FONT></DIV>

<DIV><FONT size=2>25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 25&nbsp;&nbsp; 

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Coolant on</FONT></DIV>

<DIV><FONT size=2>30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Feed Rate</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>If I move "Coolant on" down I get </FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV>

<DIV><FONT size=2>20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tool Select</FONT></DIV>

<DIV><FONT size=2>30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Coolant on</FONT></DIV>

<DIV><FONT size=2>25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Feed Rate</FONT></DIV>

<DIV><FONT 

size=2>30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Coolant 

on</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>Close the application and reopen</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tool Select</FONT></DIV>

<DIV><FONT 

size=2>25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;25&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Feed Rate</FONT></DIV>

<DIV><FONT 

size=2>30&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;30&nbsp;&nbsp;&nbsp;&nbsp; 

&nbsp;&nbsp;&nbsp;Coolant on</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV>

<DIV><FONT size=2>If I comment out the Bookmark, it works correctly&nbsp;but 

leaves me at the bottom of the list. </FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV></DIV>

<DIV><FONT size=2>procedure OperSort(sBM: String);<BR>var<BR>&nbsp;&nbsp; iSeq : 

Integer;<BR>begin<BR>&nbsp;&nbsp; with dm.tblOper do 

begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IndexName := 

'OPERSEQ2';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // Swop 

to this new sort order<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Open;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

First;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

&nbsp;&nbsp;&nbsp; // go to the top<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

iSeq:=5;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

// first record is 5<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while not Eof do 

begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

edit;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm.tblOper['SEQ']:= 

iSeq;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // increase each recod by 

5<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

iSeq:=iSeq+5;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

dm.tblOper.post;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

dm.tblOper.next;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

IndexName := 

'OPERSEQ';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // 

set back to the original order<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Open;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; First;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

while not Eof do begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

edit;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dm.tblOper['SEQ2']:= 

dm.tblOper['SEQ'];&nbsp; //&nbsp;Update secondary index. 

<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Post;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Next;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

//&nbsp; BookMark:=sBM;<BR>&nbsp;&nbsp; end;<BR>end;</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT size=2>procedure TfMain.bMainDownClick(Sender: 

TObject);<BR>var<BR>&nbsp; iSeq: Integer;<BR>&nbsp; sBookMark 

:String;<BR>begin<BR>&nbsp;&nbsp; 

iSeq:=dm.tblOper.FieldByName('SEQ').AsInteger;&nbsp; //get the current sequence 

number<BR>&nbsp;&nbsp; with dm.tblOper do 

begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

iSeq:=iSeq+6;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

// Increase by 6<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

edit;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

// tbl seq numbers are multiple of 5's<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

dm.tblOper['SEQ2']:= iSeq;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Post;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sBookMark:= 

BookMark;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

&nbsp;&nbsp;// Position Cursor at current 

record.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Close;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OperSort(sBookMark);<BR>&nbsp;&nbsp; 

end;<BR>end;</FONT></DIV>

<DIV><FONT size=2></FONT>&nbsp;</DIV></BODY></HTML>