Ошибка: Access violation

@tengar · Регистрация: 13.10.2010

Author24 — интернет-сервис помощи студентам

Пытаюсь сделать Lookup поле для ADOTable программно. Две формы
- первая имеет Grid, где будет выводиться lookup поле, и ADOTable, где будет создано это поле; (Form1)
- вторая форма имеет ADOTable откуда я беру ResultField для Lookup поля. (Form4)

Код создания lookup поля кинул в FormCreate первой формы.

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  f: TIntegerField;
begin
  ADOtable1.Open;
  f := TIntegerField.Create(ADOtable1);
  f.FieldKind := fkLookup;
  f.KeyFields := 'Dolgnost';
  f.LookupDataSet := Form4.ADOTable1;
  f.LookupKeyFields := 'ID_dolgnost';
  f.LookupResultField := 'naim_Dolgn';
  f.Name := 'name_dolg';
  ADOTable1.Fields.Add(f);
  ADOTable1.Active := True;
end;

При запуске вылетает ошибка - Access violation. Call Stack - указал на эту строчку

Delphi

1	f.LookupDataSet := Form4.ADOTable1;

Я без понятия почему там ошибка. Помогите пожалуйста.

@volvo · 03.05.2015, 12:25

Сообщение от tengar

в FormCreate первой формы

четвертая форма еще не создана, равно как и все компоненты на ней. Совершенно логично, что происходит AV...

@volvo Супер-модератор 32834 / 21171 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	03.05.2015, 12:25	2
	Сообщение от tengar в FormCreate первой формы четвертая форма еще не создана, равно как и все компоненты на ней. Совершенно логично, что происходит AV... 1