Если у каждого объекта есть функция DoPlay
, то эту функцию вам надо вынести в родительский класс или в отдельный интерфейс и сменить тип myObject
на базовый. Тогда вам будет абсолютно без разницы, какой конкретно объект был присвоен myObject
, ведь в любом случае, у него будет нужная вам функция и вы можете её вызывать без приведений типов через as
.
Объявляете базовый класс с абстрактным методом (метод, который должен быть реализован в классах-наследниках):
ТMyBaseObj = class(TObject)
public
procedure DoPlay(...); virtual; abstract;
end;
Создаёте наследников и в каждом реализуете свою логику для метода DoPlay
:
TA = class(ТMyBaseObj)
public
procedure DoPlay(...); override;
end;
procedure TA.DoPlay(...);
begin
// реализация метода для класса A
end;
TB = class(ТMyBaseObj)
public
procedure DoPlay(...); override;
end;
procedure TB.DoPlay(...);
begin
// реализация метода для класса B
end;
Объявляете свою переменную myObject
как ТMyBaseObj
и в нужном месте просто вызываете функцию DoPlay
, абстрагируясь от конкретной реализации:
TMain = class(TObject)
FMyObject: ТMyBaseObj;
procedure DoPlay(..);
end;
procedure TMain.DoPlay(..);
begin
// вызов функции
FMyObject.DoPlay(..);
end;
is
?