1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

Тема в разделе "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
    Спасибо!
    Теперь всё работает!
     
Загрузка...
Похожие Темы - Помогите начинающему
  1. Botu
    Ответов:
    6
    Просмотров:
    1.368
  2. number27
    Ответов:
    0
    Просмотров:
    78
  3. Rina
    Ответов:
    0
    Просмотров:
    94
  4. maksiiimka
    Ответов:
    2
    Просмотров:
    91
  5. Ким
    Ответов:
    23
    Просмотров:
    624
Статус темы:
Закрыта.

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