用sysbase,delphi query.bookmark是一個指標嗎?,用時要汪意什麼嗎?

1.是的, TBookmark 是指標, 見宣告: type TBookmark = Pointer; 2.用法如下: TTable.GetBookmark; // 記錄 TTable 現在的 Cursor 在哪個位置 TTable.GotoBookmark(Bookmark); // 將 TTable 的 Cursor 移到 Bookmark 這個位置 TTable.FreeBookmark(Bookmark); // 將 TTable 的 Bookmark 這個位置 Free 掉    --- 歡迎光臨 KTop 研究院

引言: 1.是的, TBookmark 是指標, 見宣告: type TBookmark = Pointer; 2.用法如下: TTable.GetBookmark; // 記錄 TTable 現在的 Cursor 在哪個位置 TTable.GotoBookmark(Bookmark); // 將 TTable 的 Cursor 移到 Bookmark 這個位置 TTable.FreeBookmark(Bookmark); // 將 TTable 的 Bookmark 這個位置 Free 掉 --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 是用query.bookmark,是否也是如此做 Bookmark 這個位置 Free 掉,的功能是結省memory嗎?

1.是的, TQuery 也可以用 Bookmark 2.是的, FreeBookmark 是避免造成 memory leak    --- 歡迎光臨 KTop 研究院

引言: 1.是的, TQuery 也可以用 Bookmark 2.是的, FreeBookmark 是避免造成 memory leak --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> T1:是tquery T1.GotoBookmark(Bookmark); 出現incompatible type string and pointer,不曉是那有問題?

您完整的程式碼為何？    --- 歡迎光臨 KTop 研究院

引言: 您完整的程式碼為何？ --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> T1.First; with T1 do while not eof do begin dq3.GetBookmark(Bookmark); xxxxxx xxxxx dq3.GotoBookmark(Bookmark); xxx next; end;

您的 Bookmark 變數是怎麼宣告的？ 是 var Bookmark: TBookmark; 嗎？    --- 歡迎光臨 KTop 研究院

引言: 您的 Bookmark 變數是怎麼宣告的？ 是 var Bookmark: TBookmark; 嗎？ --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 是

經小弟實作結果tquery果然不能用bookmark,紀錄recno也不行 因為更新後全走樣了...... 查過三本書,tquery沒介紹getbookmark的方法,Ttable有提到, 但是沒有用法(真爛).........目前只知:    可以先紀錄某個key值,再用locate找回來,不過我相信應有更好 的方式,爛vb都不用如此.更何況delphi ,對吧  有沒有好點的方法?,我也想知道...因為同樣問題,不再另屁議題

------
~*呂政全*~

小弟試 TQuery 可以使用 TBookmark 的功能. 那個 dq3 的變數是指什麼？ 大概的使用方式:

var
  bk: TBookmark;
begin
  bk := Query1.GetBookmark;
  try
    // do something
  finally
    Query1.GotoBookmark(bk);
    Query1.FreeBookmark(bk);
  end;
end;

--- 歡迎光臨 KTop 研究院

引言: 小弟試 TQuery 可以使用 TBookmark 的功能. 那個 dq3 的變數是指什麼？ 大概的使用方式:

var
  bk: TBookmark;
begin
  bk := Query1.GetBookmark;
  try
    // do something
  finally
    Query1.GotoBookmark(bk);
    Query1.FreeBookmark(bk);
  end;
end;

--- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> DQ3是T1:TQUERY;我寫錯了.原程式為如下 T1.First; with T1 do while not eof do begin XXXXXX if i=500 then begin i:=0; bk:=T1.GetBookmark; ******* ****** T1.GotoBookmark(bk); T1.FreeBookmark(bk); end; T1.GetBookmark(Bookmark); xxxxxx xxxxx T1.GotoBookmark(Bookmark); xxx next; END; end; 執行到 T1.GotoBookmark(bk);會出現could not found record,不曉是什麼原因, 在執行此段之前有執行過T1,類似此迴圈,只是沒用Bookmark

begin
  T1.First;
  with T1 do 
    while not eof do begin
      //XXXXXX
      if i=500 then begin
      i:=0;
      bk:=T1.GetBookmark;
      //*******
      //******  
      T1.GotoBookmark(bk);
      T1.FreeBookmark(bk);
    end;
  T1.GetBookmark(Bookmark); // 這行的 Bookmark 已經被 Free 了(如果 while 這個迴圈有執行的話)？或 Bookmark 還未指定(如果 while 迴圈沒有執行的話)？
  //xxxxxx
  //xxxxx 
  T1.GotoBookmark(Bookmark);
  //xxx 
  next; // 這行的 Next 會造成無窮迴圈吧?!
  END;

--- 歡迎光臨 KTop 研究院

引言:

begin
  T1.First;
  with T1 do 
    while not eof do begin
      //XXXXXX
      if i=500 then begin
      i:=0;
      bk:=T1.GetBookmark;
      //*******
      //******  
      T1.GotoBookmark(bk);
      T1.FreeBookmark(bk);
    end;
  T1.GetBookmark(Bookmark); // 這行的 Bookmark 已經被 Free 了(如果 while 這個迴圈有執行的話)？或 Bookmark 還未指定(如果 while 迴圈沒有執行的話)？
  //xxxxxx
  //xxxxx 
  T1.GotoBookmark(Bookmark);
  //xxx 
  next; // 這行的 Next 會造成無窮迴圈吧?!
  END;

--- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> next這行是要讀T1下一筆的,沒用NEXT要不知如何讀下一筆 T1.FreeBookmark(bk);這行拿掉還是一樣,不曉為何會如此

Sorry! 看錯了!  另外, 可以把您省略的部份貼出來嗎？ 您想要做到什麼樣的功能？ --- 歡迎光臨 >

引言: Sorry! 看錯了! 另外, 可以把您省略的部份貼出來嗎？ 您想要做到什麼樣的功能？ --- 歡迎光臨 > < face="Verdana, Arial, Helvetica"> begin T1.First; with T1 do while not eof do begin //XXXXXX if i=500 then begin i:=0; bk:=T1.GetBookmark; ******* 因執行此行會將T1的指標移至第一筆,所以要記錄目前的指標在那 ****** T1.GotoBookmark(bk); end; T1.GetBookmark(bk); // 這行的 Bookmark 已經被 Free 了(如果 while 這個迴圈有執行的話)？或 Bookmark 還未指定(如果 while 迴圈沒有執行的話)？ //xxxxxx //xxxxx //xxx next; END;

哎呀! 小弟我全亂了! 所以回答亂了. 請問一下, class="code"> begin T1.First; with T1 do while not eof do begin XXXXXX if i = 500 then begin i := 0; bk := T1.GetBookmark; ******* ****** T1.GotoBookmark(bk); T1.FreeBookmark(bk); end; T1.GetBookmark(Bookmark); // 這個 Bookmark 的值從哪取得的？因為未指定, 所以會有找不到 Record not found 的錯. xxxxxx xxxxx T1.GotoBookmark(Bookmark); xxx next; END; end; --- 歡迎光臨 KTop 研究院

引言: 哎呀! 小弟我全亂了! 所以回答亂了. 請問一下, class="code"> begin T1.First; with T1 do while not eof do begin XXXXXX if i = 500 then begin i := 0; bk := T1.GetBookmark; ******* ****** T1.GotoBookmark(bk); T1.FreeBookmark(bk); end; T1.GetBookmark(Bookmark); // 這個 Bookmark 的值從哪取得的？因為未指定, 所以會有找不到 Record not found 的錯. xxxxxx xxxxx T1.GotoBookmark(Bookmark); xxx next; END; end; --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica"> 我把 bk指定為 bk:TBookmark; begin T1.First; with T1 do while not eof do begin //XXXXXX if i=500 then begin i:=0; T1.GetBookmark(bk); ******* 因執行此行會將T1的指標移至第一筆,所以要記錄目前的指標在那 ****** T1.GotoBookmark(bk); end; //xxxxxx //xxxxx //xxx next; END;

根據hagar所提到，小弟試了一下 var bk:tbookmark; begin bk :=adoquery1.GetBookmark; //紀錄指標 ........ adoquery1.GotoBookmark(bk); //返回指標 end; 這樣是可以的,有那麼複雜嗎?

------
~*呂政全*~