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

  • Автор темы Pavel
  • Дата начала
Статус
Закрыто для дальнейших ответов.
P

Pavel

Гость
#1
Помогите начинаюшему программисту!
Как сделать закладку в таблице на одной кнопке, чтобы можно
было ставить закладку и возвращаться к ней нажатием одной кнопки.
Что-то у меня не получается, не работает проверка условий.
Мой 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;
 
Z

zubr

Гость
#2
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;
 
Статус
Закрыто для дальнейших ответов.