VPF::Делаю компонент - Форум программистов

Гость05

Дата 28.10.2005, 16:34 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!
пытаюсь сделать свой компонент

Код


...
type
  TmyClass = class
  private
    FDataSet : TDataSet;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    ...
  published
    property DataSet: TDataSet read FDataSet write FDataSet;
  end;

property DataSet присвоен TDataSet лежащий на форме
при обращении из кода компонента к FDataSet говорит Inaccessible value, почему?

Код


...
function TmyClass.Какаято_функция : boolean;
begin
    if FDataSet.RecordCount > 0 then begin - !!! здесь роет
...

Спасибо.

ShadeSt

Дата 28.10.2005, 17:43 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Наверное потому что не существует экземпляра данного класса.
где нить в конструкторе:
FDataSet := TDataSet.Create(Self);

гденить в деструкторе что ни типа
FDataSet.Free;

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

It's nice to be importand, but it's more importand to be nice © Scooter

Droll

Дата 29.10.2005, 17:10 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 10.11.2004

Репутация: 1
Всего: 3

хм... и правильно орет...:
Во-первых, надо Вы создаете класс, а хотите компонент:

Код


  TMyComp = class(TComponent)

иначе, в public надо прописать:

Код


  public    
// AOwner идет только у преемников класса
// TComponent
    constructor Create; override;    
    destructor Destroy; override;

Соответсвенно, если Вы прописываете:

Код


  private    
    FDataSet : TDataSet;

,
То в Create надо что-то вроде:

Код


  inherited;
  FDataSet:= TDataSet.Create(Self);

а в Destroy:

Код


  FDataSet.Free;
  inherited;

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