Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

Как создать объект того же класса в методе родителя?   Найти похожие ветки 

 
TEXHAPb   (2004-02-16 17:28) [0]

Есть несколько классов, унаследованных от одного родителя - TDataObject.
Есть метод TDataObject.GetObject(Id:integer):TDataObject, в котором должен создаваться и возрвращаться объект такого же класса, как у вызывающего объекта.
Надеюсь я понятно изложил проблему.
Подскажите как это можно реализовать в методе родителя.


 
Семен Сорокин ©   (2004-02-16 17:35) [1]

type
TSecondClass = class;

TFirstClass = class
private
FSecondClass = TSecondClass;
end;

TSecondClass = class
private
end;


 
Тимохов ©   (2004-02-16 17:43) [2]

interface

type
TDataObject = class
function GetObject: TDataObject;
constructor Create; virtual;
end;
TDataObjectClass = class of TDataObject;
TDataObject1 = class(TDataObject);

implementation

function TDataObject.GetObject;
begin
Result := TDataObjectClass(ClassType).Create;
end;

procedure Do;
var
o1, o2: TDataObject;
begin
o1 := TDataObject1.Create;
o2 := o1.GetObject; // Будет создан объект класса TDataObject1
end;



Страницы: 1 вся ветка

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
7-94207
Aleksey
2003-12-12 06:20
2004.02.29
Shell в


14-94121
syte_ser78
2004-02-09 12:35
2004.02.29
неопределенное число параметров BP7


1-93900
Cardinal
2004-02-15 14:51
2004.02.29
Как писать в шеснадцатеричный файл??


7-94202
smu
2003-12-11 11:39
2004.02.29
Что делает WaitForSingleObject(ProcInfo.hProcess, INFINITE)?


1-93994
zenaev
2004-02-17 09:32
2004.02.29
MDIChild