Использование закладок

← →
AlexA © (2002-11-12 13:15) [0]

имеем следующее
НД IBQPL_Date типа TIBQuery
переменная RunGeneneralI объявлена для модуля
модуль данных DM

Написана процедура

procedure RunGeneralItI;//подсчет суммы по полю "Run_General", набора данных IBQPL_Date
var
Sum_Tmp : real;
MyBookMark: TBookMark;
begin
with DM do
begin
IBQPL_Date.DisableControls;
Sum_Tmp:=0;
MyBookMark := IBQPL_Date.GetBookmark; //вроде заложил закладку
IBQPL_Date.First;
while not IBQPL_Date.Eof do
begin
if IBQPL_Date["Run_General"]<> null
then Sum_Tmp := Sum_Tmp + IBQPL_Date["Run_General"];//подсчет суммы
IBQPL_Date.Next;
end;
If IBQPL_Date.BookmarkValid(MyBookMark) //проверяю наличие закладки. Условие всегда False
then IBQPL_Date.GotoBookmark(MyBookMark); //это соответственно не выполняется :-(

IBQPL_Date.EnableControls;
RunGeneneralI:= Sum_Tmp;
end;
end;

Что я делаю не так?
И еще поле, с каким работал можно ли наподобии "заложить" закладкой.
Спасибо.

← →
Victor_Cr © (2002-11-12 13:32) [1]

Во-первых, ты забыл освободить закладку FreeBookmark.
И потом, попробуй так:
var BM: BookMarkStr; begin ... BM := Query1.Bookmark;//Заложил закладку ... Query1.Bookmark := BM;//Вспомнил ее. ... end;

Главное что BookMarkStr типа стринг. А значит освобождать ресурсы не нужно. И вообще Борманд не рекомендует пользоваться:
GotoBookmark
BookmarkValid
GetBookmark
Они оставлены только для совместимости со старыми версиями.

Спасибо работает.,Но...
Помоги еще раз.
У меня происходит следующее при ищмение поля вызывается указаная процедура и курсор переходи тна следующее поле, но курсор это не виден... Что делать

Использование закладок Найти похожие ветки