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

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

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  1. Pavel

    Pavel Гость

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

    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 Гость

    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 Гость

    Спасибо!
    Теперь всё работает!
     
Загрузка...
Похожие Темы - Помогите начинающему
  1. Botu
    Ответов:
    6
    Просмотров:
    1.301
  2. сергей799
    Ответов:
    2
    Просмотров:
    41
  3. komodikus
    Ответов:
    11
    Просмотров:
    134
  4. donny555
    Ответов:
    1
    Просмотров:
    43
  5. Brat
    Ответов:
    27
    Просмотров:
    287
Статус темы:
Закрыта.

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