Sidebar |
コントロールに接続しないで
内部だけでいままでDBを利用していたので知りませんでした 最近コントロールに接続してつなぐといっしょにカーソル動いて おそいなぁ って思っていましたが 昨日 気がつきました。 劇的に速度が上昇しました♪
元の位置にカーソル戻そうかなぁと思って TBookmarkの使い方のヘルプをみにいって知りました。 古いバージョン意外は Bookmark プロパティがあるので Withを使うときは、名前の衝突に要注意 (コンパイルエラーで教えてくれますが・・・) var aBookmark: TBookmark; begin { メモリを割り当て,値を代入する } aBookmark := Table1.GetBookmark; with Table1 do begin { コンポーネントとの接続を一時的に解除します } DisableControls; try while Not(Eof) do begin // 処理 Next; end; finally { カレントレコードのコントロールを更新します } GotoBookmark(aBookmark); { データコントロールのレコード表示をオンにする } EnableControls; {ブックマークのメモリ割り当てを解除する } FreeBookmark(aBookmark); end; // with Table1 カテゴリー: ぷろぐらみんぐ
2005.09.03
|
Sidebar |