разные классы, одна процедура

[xrob]

у меня есть несколько разных классов но в каждом из них есть одинаковая процедура.
я создаю несколько экзепляров этих классов и запихиваю их в array of TObject
чтобы потом в цикле вызвать процедуру в каждом экземпляре:

for...
(Items[i] as TMyClass).Go;

где TMyClass - пустой класс, в котором описана одинаковая процедура,
содержащаяся во всех остальных классах.
объявления процедур везде совпадают.

компилятор, разумеется, считает себя умнее меня,
но я то знаю что в Items[i] есть процедура Go.
и вообще хотелось бы Items[i].Go; но это не позволяет скомпилить компилятор.
(Items[i] as TMyClass).Go компилится, но при выполнении выдает ошибку
(точно не помню, что-то про несовпадение классов)
делфи конечно прав, классы не совпадают,
но я все-таки настаиваю что процедура Go есть и ее надо запустить.

что можно сделать?

[xrob]

м...
нашел способ.
описал одинаковую процедуру в классе,
от которого потом унаследовал все остальные классы.
так работает...
но есть еще какие-нибудь варианты?
что если я не хочу наследовать новые классы?

[Пепел Феникса]

может вам использовать наследование?
сделать абстрактный класс родитель(в нем абстрактная процедура ваша), а остальные ваши классы наследовать от него, и реализовать эту самую процедуру.
потом вам просто будет нужен массив этого самого абстрактного класса.

но есть еще какие-нибудь варианты?

ну разве что интерфейсы, но мне в Делфи они не нравятся.
да и по мне это самое то для применения наследования.

[xrob]

хорошо, тогда еще вопрос.
что такое абстрактный класс?
это чисто разговорное определение,
или абстрактный класс чем-то отличается от обычного?

вот я создал

TBase = class
procedure Test1; virtual;
end;

а потом

TNew = class(TBase)
n:integer;
s:string;
procedure Test1; override;
end;

а что вы там про интерфейсы говорили?
что это такое? т.е. я примерно представляю что это
(набор функций и процедур характерных для объекта, так?)
каким образом здесь это использовать?

[evg_m]

что такое абстрактный класс?
это чисто разговорное определение,
или абстрактный класс чем-то отличается от обычного?

Абстрактный класс класс в котором определены абстрактные методы
абстрактный метод метод имеющий определение но не имеющим реализации в данном классе.(Его реализация будет выполнена в классах наследниках).

TBase = class
procedure Test1; virtual; abstract;
end;

[Пепел Феникса]

вообще в Делфи нет понятия абстрактного класса(это с шарпа привычка), но я имел в виду именно ваш класс TBase

немного стыдно признаться, но с интерфейсами в Делфи я не работал, поэтому код привести не могу.
по сути сведется к тому что вы объявите интерфейс, и уже в ваших классах будете его реализовывать.(добавляя интерфейс в список наследников)
и потом приводя к типу интерфейса просто исполнять то что вам надо.

[xrob]

возникла проблема.
в экземплярах унаследованных от моего "абстрактного" класса есть поле Area:TRect;
в абстрактном классе я его тоже объявил.
есть array of TBase, в котором лежат объекты разных классов, унаследованных от TBase.
проблема в том что не могу достучаться до поля Area =(
Items[i].area.right;
т.е. достучаться то можно, но все значения равны нулю,
такое ощущение что TRect не создан....
значения Area я описываю в объектах классов, унаследованных от TBase.
в чем я не прав?
что можно сделать?

[veniside]

> что можно сделать?

показать исходник

[xrob]

исходник примерно такой:

type
// описываем абстрактный класс
TBase = class
FX:integer;
end;

// описываем конкретный класс
TTest = class(TBase);
FX:integer;
end;

var
// объявляем массив и переменную для класса
Items:array of TBase;
Test:TTest;


implementation

Test:=TTest.Create; // создаем объект класса
Test.FX:=20; // присваиваем значение (успешно)
Items[0]:=Test; // массив по-идее of TBase, но потомки TBase добавляются в него

// проблема вот в чем:
Items[0].FX = 0;

логически порассуждав, я пришел к выводу что поскольку у меня массив of TBase,
то и FX он пытается прочитать из класса TBase, а не из экзепляра в массиве
(тупо, не правда ли?)
я нашел выход в том чтобы создать функцию,
которая возвращает нужное значение.
объявляю ее в обоих классах:


TBase = class
FX:integer;
function GetFX:integer; virtual; abstract;
end;

// описываем конкретный класс
TTest = class(TBase);
FX:integer;
function GetFX:integer; override;
end;


function TTest.GetFX:integer;
begin
Result:=FX;
end;

и тогда
Items[0].GetFX = 20; =)

решение, конечно, громоздкое, но оно хотя бы работает...

[veniside]

а зачем объявлять одинаковые поля?
FX:integer; достаточно объявить только в TBase, остальные его просто унаследуют.