VPF::Почему не работает закладка? - Форум программистов

Гость_Pavel

Дата 3.1.2005, 20:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Подскажите почему не работает закладка в таблице?
Выводиться сообщение об ошибке.
Подскажите что не так?

Код



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,  DB,
  DBTables, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Database1: TDatabase;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1; SavePlace: TBookmark;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
 Table1.IndexName :=('Num');
end;

procedure TForm1.Button1Click(Sender: TObject);


begin
try
if Table1.BookmarkValid(SavePlace)=false then
SavePlace := Table1.GetBookmark else
begin
Table1.GotoBookmark(SavePlace);
Table1.FreeBookmark(SavePlace);
end;
except
SavePlace := Table1.GetBookmark
end;
end;

end.

Это сообщение отредактировал(а) Vit - 4.1.2005, 17:17

Akella

Дата 4.1.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Код


procedure TForm1.Button1Click(Sender: TObject);
[b]//добавь[/b]
Var
SavePlace:TBookmark;
begin
try
if Table1.BookmarkValid(SavePlace)=false then
SavePlace := Table1.GetBookmark else
begin
Table1.GotoBookmark(SavePlace);
Table1.FreeBookmark(SavePlace);
end;
except
SavePlace := Table1.GetBookmark
end;
end;

end.

Akella

Дата 4.1.2005, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Нет не правильно, так будет без ошибки, но нормально работать не будет

Akella

Дата 4.1.2005, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Код


    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ///объявляем закладку
  [b]ss:TBookMark;[/b]

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Table1.BookmarkValid(ss) then
    ss:=Table1.GetBookmark
  else begin
    Table1.GotoBookmark(ss);
    Table1.FreeBookmark(ss);
  end;

end;

Добавлено @ 11:17
smile

вопрос администрации: почему не работают теги, вернее не всегда работают
извините за smile

Это сообщение отредактировал(а) dsergey - 4.1.2005, 11:16

Vit

Дата 4.1.2005, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Цитата(dsergey @ 4.1.2005, 02:15)

Добавлено @ 02:17
вопрос администрации: почему не работают теги, вернее не всегда работают
извините за

Внутри кода никакие тэги не работают и не должны работать (это абсолютно правильно!)

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »