Access Violation

[dimkoss]

Переместил процедуры для печати в отдельный .pas
http://pastebin.com/uwgNr1VJ
При вызове процедур, выкидывает Access Violation на строке
if ADOQuery1.FieldCount > 2 then
В чем может быть дело?

[Serge_Bliznykov]

Не создана Form1 и/или ADOQuery1 (который, судя по всему, находится на этой форме).

запомните, прежде чем обратиться к любому свойству/методу объекта, нужно предварительно этот объект СОЗДАТЬ.

[type_Oleg]

Я так понял, это - не модуль главной формы ?
Тогда почему ADOQuery1 , а не Form1.ADOQuery1 , как в других местах ?

Или сделать with Form1 ...

[dimkoss]

TPrinting = class(TForm1) Разве это не означает, что все компоненты с первой формы доступны в tprinting?

[min@y™]

Разве это не означает, что все компоненты с первой формы доступны в tprinting?

Это означает, что ты пронаследовал класс. И всё.

[dimkoss]

Сообщение от min@y™

Это означает, что ты пронаследовал класс. И всё.

А почему тогда adoquery недоступна? Она есть в том классе?

[min@y™]

А почему тогда adoquery недоступна? Она есть в том классе?

а ты память под неё поклянчил вызовом конструктора?

[dimkoss]

Сообщение от min@y™

а ты память под неё поклянчил вызовом конструктора?

Можно по подробнее об этом?

[min@y™]

Можно по подробнее об этом?

кусок исходника покажь.

[evg_m]

Переместил процедуры для печати в отдельный .pas

Вопрос: Зачем ?
Ответ: Хотел сделать УНИВЕРСАЛЬНЫЙ вывод данных.
1. сделать такой класс

type
  TPrinting = class(TForm1)
TPrinting =class(TObject ???) TComponent ???

мы же ХОТИМ сделать "универсальную" печать, а НЕ только и исключительно для Form1.

2. После этого УБРАТЬ из этого класса ВСЕ упоминания ПЕРЕМЕННОЙ Form1.

Не получается ?
ДОБАВЛЯЕМ в процедуры ПАРАМЕТРЫ

 procedure PBar(parentform: TForm); //примерно!!! ТАК!!!