Работа с классами

← →
MaxidroM555 (2004-04-09 21:24) [0]

Как мне получить доступ к полям класса из другого модуля?
Класс находится в отдельном модуле Unit3.
TBook=class
PV, fa: Mas; //массив из записей
n: integer;
Constructor Create(a: integer);
Destructor Destroy;
Procedure Poisk(familia: str);
Procedure Insert(var к: integer; zapis : Telement);
Procedure Sort(var pp: mas);
end;
В модуле главной формы создаётся экземпляр класса и производится сортировка массива PV. А из другого отдельного модуля мне необходимо произвести поиск, с помощью метода Poisk, но без создания ещё одного экземпляра это не получается, помогите чем можете.

← →
Fay © (2004-04-09 21:25) [1]

uses
unit3;

← →
Алхимик © (2004-04-10 09:22) [2]

Unit1,Unit2,Unit3...Unit10...Unit20... крах проекта.
Есть здравая мысль именовать модули если их >1(а иногда и >0).

← →
ssk (2004-04-10 09:25) [3]

лучше всегда именовать

Fay © (09.04.04 21:25) [1]
uses
unit3;

И переменная (экземпляр класса) должна быть глобальной. То есть объявленная в интерфейсной секции.

> TBook=class
> PV, fa: Mas; //массив из записей
> n: integer;

Гм.. Общее правило - делать поля класса private или protected и обеспечить методы доступа.

Работа с классами Найти похожие ветки