🚀 go-pugleaf

> On Wed, 30 Jun 2010 17:39:51 +0200, webmajsterek@poczta.onet.pl wrote:
> > type 
> > 
> >    MyClass=class
> >       var Next:MyClass;
> >       procedure  Add(Source :MyClass );
> >    end;
> > 
> > da się zrobić odwolanie w klasie generycznej do samej siebie ???
> > ( to ponizej niestety nie dizała -- a nie mam pomysłu jak ten problem 
ominąć )
> > 
> >    generic MyClass=class
> >       var Next:MyClass;
> >       procedure  Add(Source :MyClass );
> >    end;
> 
> Zgodnie z dokumentacją, jak powiadają Czesi, to se ne da.
> 
> Jak chcesz prawdziwe dżeneriksy/templejty to użyj języka
> sprawnego w tym zakresie ;-).

a jaki jezyk ma tak wyjatkowe i cudowne właściwości ??


teoretycznie da sie to obejsc bo zrobilem cos takiego  ze zrobilem obiekt 
abstrakcyjny ( ma dokladnie te same metody ) i wszystkie moetody w nim sa 
wirtualne 

type 
    AbstractMyClass=class abstract
        var Next:MyClass;
        procedure  Add(Source :MyClass );virtual;abstract;
    end;

   Generic MyClass<nBit>=class(AbstractMyClass)
      procedure  Add(Source :MyClass );override;
   end;  

nawet to działa !! 

zauważyłem też drugi proglem z generikiem 

jak gdziesz w programie jest taka  konstrukcja

type 

    MyClass=class;
    {...} 
    NextClass= class
       test:MyClass;
    end;  { Definicje innych klas -- które odwoluja sie do MyClass}
    
  { wlasciwa definicja MyClass }
   generic MyClass<nBit>= clas ( JakisObjekt )
      private type
         TArray=array of nBit; << to tu blad -- kompilator mowi ze nie wie co 
to nBit 
      private var 
         Data:TArray;     
  {...}
   end;   


a moze w necie jest jakies naarzedzie ktore ma podobna ffunkcjionalnosc jak 
generic ( oczywiscie dla pascala ).
parsowało by kod  i odpowiednio z obiektu wejsciowego wyszukiwało by slow 
kluczowych i je podmienialo .znacie cos takiego ?? 


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl