| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

EAccessViolation

Maxx ©   (2008-06-24 18:00:00) 

Почему вылетает ошибка и как ее исправить

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;



---

Palladin   (2008-06-24 18:14:00) [1]

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

---

Плохиш   (2008-06-24 18:12:00) [2]

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

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

---

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

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

---

Юрий Зотов   (2008-06-24 18:10:00) [4]

> Maxx   (24.06.08 18:00)  

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

---

Поросенок Винни-Пух   (2008-06-24 18:08:00) [5]

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

---

Maxx   (2008-06-24 18:08:00) [6]

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

---

NeiL   (2008-06-24 18:06:00) [7]

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

---

Поросенок Винни-Пух   (2008-06-24 18:06:00) [8]

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

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

---

clickmaker   (2008-06-24 18:04:00) [9]

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

---

Наверх