Помогите начинающему!

[Pavel]

Помогите начинаюшему программисту!
Как сделать закладку в таблице на одной кнопке, чтобы можно
было ставить закладку и возвращаться к ней нажатием одной кнопки.
Что-то у меня не получается, не работает проверка условий.
Мой e-mail: p_loskutov@inbox.ru

procedure TForm1.oxButton5Click(Sender: TObject);
var SavePlace: TBookMark;
Label m1, m2;
begin

if Not Table1.BookmarkValid(SavePlace)
then goto m1
else goto m2;

m1: SavePlace := Table1.GetBookmark;


m2: Table1.GotoBookmark(SavePlace);
Table1.FreeBookmark(SavePlace);

end;

 

[zubr]

Pavel
У тебя ошибка в том, что переменная SavePlace локальная.
Вот правильный код:

implementation

{$R *.DFM}

var
SavePlace:TBookmark;

procedure TForm1.oxButton5Click(Sender: TObject);
begin
If SavePlace=nil then//для первого клика
begin
SavePlace:=Table1.GetBookmark;
exit;
end;
If (not Table1.BookmarkValid(SavePlace)) then
SavePlace:=Table1.GetBookmark
else
begin
Table1.GotoBookmark(SavePlace);
Table1.FreeBookmark(SavePlace);
end;
end;

 

[Guest]

Спасибо!
Теперь всё работает!