🚀 go-pugleaf

W dniu 16.01.2012 17:32, R.e.m.e.K pisze:
> Dnia Mon, 16 Jan 2012 17:06:56 +0100, Piotr Rezmer napisał(a):
>
>> Błąd polega na tym że użyłeś Integer jako placeholder po lewej stronie
>> deklaracji typu generycznego. W ten sposób nadpisałeś definicję typu
>> Integer, i kompilator nie rozpoznał deklaracji zmiennej I w bloku
>> zmiennych metody doParsePacketList().
>
> To brzmi sensownie, tylko czemu (zacytuje moj pierwszy post):
>
> "Ale jak pomiedzy implementation a metode wsadzisz:
>
> function nothing : Integer;
> begin
> end;
>
> to bledu juz nie ma."
>
> Cos tu jednak smierdzi.

Kod poprawiony i oczywiście działa - to w ramach nauki nowości (w D2007 
nie było wielu rzeczy z tego, co pojawiło się w D2009/2010/XE). Kupiłem 
sobie PDFa Marco Cantu i męczę literaturę :)

Teraz mam problem z dziedziczeniem generyków. Taki przykład:

TCustomList<T> = class(TObjectDictionary<Integer, T>)
   private
     FListID: Integer;
     FListName: string;
   public
     class function CreateList(const AListName: String; const AListID: 
Integer): TCustomList<T>;

     property ListName: string read FListName write FListName;
     property ListID: Integer read FListID write FListID;
   end;

   TSingleList = class(TCustomList<string>)
   public
   end;

   TMultiList = class(TCustomList<TSingleList>)
   public
   end;

implementation

{ TCustomList<T> }

class function TCustomList<T>.CreateList(const AListName: String; const 
AListID: Integer = -1): TCustomList<T>;
begin
   Result := TCustomList<T>.Create();
   Result.FListName := AListName;
   Result.FListID := AListID;
end;


Jak zrobić, żeby dziedziczące klasy umiały korzystać z funkcji klasowej 
CreateList i żeby ona zwracała obiekt właściwej klasy? Zgodnie z 
powyższym kodem oczywiście to nie zadziała:

var
   sl: TSingleList;

sl := TSingleList.CreateList('Single List', -1);

A jeszcze lepiej, żeby (wiem, że to niepoprawny zapis, chodzi mi o 
uzyskanie takiej funkcjonalności) było tak:

var
   cl: TCustomList<T>;

cl := TCustomList.CreateList('Single List', -1); (zwraca obiekt klasy 
TSingleList lub TMultiList - a decyduje o tym funkcja klasowa CreateList 
zależnie np. od otrzymanych parametrów. Da się tak?

jh