Forum: Object-Pascal / Delphi-Language
by TiGü,
23. Aug 2012
Dafür wird im betreffenden Projekt gerne das gemacht.
Wobei ich dabei auch immer irgendwie Bauchschmerzen habe.
TMyClass = class;
IMyInterface
function GetObject : TMyClass;
end;
TMyClass = class(TInterfacedObject, IMyInterface)
Forum: Object-Pascal / Delphi-Language
by TiGü,
23. Aug 2012
Also so sieht es eigentlich aus, musste aber Firmenspezifische Abkürzungen von ein paar Bezeichnern entfernen.
Die Kommentare sind von mir für euch zur Erklärung!
class function TNotifyEventContainer.CreateContainer(ANotification : HNotification; AExtMedium : IAExtMedium) : IEventContainer;
var
EventType : IEventType;
Event : TNotifyEventContainer; //IEventContainer;
begin
...
Forum: Object-Pascal / Delphi-Language
by TiGü,
23. Aug 2012
Bin gerade über alten Code gestoßen und bin mir unsicher, ob das so sein darf:
class function TContainer.CreateContainer(...) : IContainer;
var BlaType : IBlaType;
Example : TContainer; //IContainer;
begin
Result := nil;
Example := TContainer.Create(...);
if Assigned(Example) and FindBlaType(...) then
begin
Example.SetIrgendwas(BlaType);