EAccessViolation

← →
Maxx (2008-06-24 18:00) [0]

Почему вылетает ошибка и как ее исправить
unit Test; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls; type Tform_Test = class(TForm) cmp_btn_Set: TButton; cmp_DBText: TDBText; procedure FormCreate(Sender: TObject); procedure cmp_btn_SetClick(Sender: TObject); private public cmp_DataSource: TDataSource; cmp_Test: TDBISAMTable; cmp_Item: TDBISAMTable; cmp_DataSource: TDataSource; end; var form_Test: Tform_Test; implementation {$R *.dfm} procedure Tform_Test.FormCreate(Sender: TObject); begin cmp_DataSource.DataSet := cmp_Item; cmp_DBText.DataSource := cmp_DataSource; end; procedure Tform_Test.cmp_btn_SetClick(Sender: TObject); begin cmp_DBText.DataSource.DataSet := cmp_Test; {тут вылетает EAccessViolation } end;

← →
clickmaker © (2008-06-24 18:04) [1]

а cmp_DataSource где создается?

← →
NeiL (2008-06-24 18:06) [2]

В дизайнере формы.

← →
Поросенок Винни-Пух © (2008-06-24 18:06) [3]

public
cmp_DataSource: TDataSource;
cmp_Test: TDBISAMTable;
cmp_Item: TDBISAMTable;
cmp_DataSource: TDataSource;
end;

И кто и где инициализирует эти паблик поля?

← →
Поросенок Винни-Пух © (2008-06-24 18:08) [4]

если это компоненты положенные на форму, то что они делают в паблик секции и кто их из убрал из паблишед?

← →
Maxx (2008-06-24 18:08) [5]

Описка вышла. Они уже заранее лежат на форме.

← →
Поросенок Винни-Пух © (2008-06-24 18:10) [6]

предлагаешь нам здесь по опискам искать истину?

> Maxx (24.06.08 18:00)

Не надо править объявление класса формы руками. Вредно это.

> public
> cmp_DataSource: TDataSource;
> cmp_Test: TDBISAMTable;
> cmp_Item: TDBISAMTable;
> cmp_DataSource: TDataSource;
> end;

Это что ж надо было сделать с компилятором своими кривыми ручками, что он такое пропустил?

аффтар - одна большая описка :) чего"то сюда скопировал и нате, товарищи, ищите :)

EAccessViolation Найти похожие ветки