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

Тема в разделе "Delphi - Базы данных", создана пользователем Pavel, 30 дек 2004.

Статус темы:
Закрыта.
  1. Pavel

    Pavel Гость

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

    zubr Гость

    Репутация:
    0
    Pavel
    У тебя ошибка в том, что переменная SavePlace локальная.
    Вот правильный код:
    Код (Text):
    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;
     
  3. Guest

    Guest Гость

    Репутация:
    0
    Спасибо!
    Теперь всё работает!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей