Generics in Freepascal

[pajofego]

Hallo zusammen,

ich hoffe hier ist der eine oder andere der sich neben Delphi auch mit fpc beschäftigt. Ich versuche gerade das neue feature Generic von fpc zu benutzen. Aus der Hilfe bin ich noch nicht so ganz schlau geworden. Im grunde genommen möchte ich wie in C++ eine Vektor Template Klasse definieren.

Meine Idee sieht wie folgt aus:

Delphi-Quellcode:

type
 Generic TVector<T> = class(TList)
  protected
    data : T;
  end;
var
 MyGeneric:<double>TVector;

Die Definition der generischen Klasse TVector wird soweit vom Compiler akzeptiert. Was ich bis jetzt nicht weiss ist, wie definiert man denn nun eine Instanz auf die Templateklasse? O.g. wird nicht akzeptiert. Hat einer von euch ein Beispielcode bzw. Erfahrung mit diesem neuen Feature in fpc? Ich konnte leider bis heute nicht den Artikel in Toolbox Magazin einsehen.

Danke,
Gruß
pajofego

[Alloc]

Hi,

hast du es schonmal umgekehrt probiert? Also
MyGeneric: TVector<double>; ? So läuft das zumindest in Java =)

Grüße,
Chris

[himitsu]

ich nutze zwar kein FPC, aber Google meinte z.B. dieses dazu

Zitat:

In short, my second syntax proposal is:

- generic definition syntax (type section):
* {type_name} = generic {type_definition} of {generic_holder} ;

- generic implementation syntax (var section):
* {var_name} : specialize {generic_type} for {implemented_type} ;
* or if it's defined in type section:
* {type_name} = specialize {generic_type} for {implemented_type} ;

aus http://www.nabble.com/FPC's-generics-t3914040.html

[pajofego]

So funktioniert's! Danke schon mal für die Tipps!

Ob das der prime path ist für die Verwendung von generics ist...bin ich mir nicht sicher! Vielleicht ist der eine oder andere hier der auch ein kleinwenig mit fpc programmiert.

Delphi-Quellcode:

type
  Generic TVector<T> = class(TList)
  protected
    data : T;
  end;
  TVectorDouble = specialize TVector<double>;
var
  MyGeneric: TVectorDouble;

Danke Gruß
pajofego

[jbg]

Zitat von pajofego:

Ob das der prime path ist für die Verwendung von generics ist...bin ich mir nicht sicher!

Ja, so werden Generics "spezialisiert" in FPC. Bei Delphi wird das dann wohl doch eher mit "var MyGeneric: TVector<double>;" von statten gehen. Zumindest lässt sich das aus Allen Bauers Blog andeutungsweise herauslesen.

[pajofego]

Ach,

das ist ja schön, dass Delphi da auch mal nachzieht. Die von dir genannte Syntax gefällt mir da auch besser. Finde ich schon erstaunlich was für eine Arbeit die Jung von fpc machen. Sehr viele Neuigkeiten haben die recht früh eingebracht...man denke da z.B. nur an Operator Overloading.

Wie sieht's eigentlich mit statischen Klassenvariabeln aus? Kann das Delphi Win32? Bei fpc habe ich da noch nichts finden können.

Gruß
pajofego

[jbg]

Zitat von pajofego:

Wie sieht's eigentlich mit statischen Klassenvariabeln aus? Kann das Delphi Win32?

Die gibt es seit Delphi 2006.

Delphi-Quellcode:

TTest = class(TObject)
private
  class var MyVar: Integer;
public
end;