Generics und Typparameter

[Codewalker]

Hallo zusammen.

Ich möchte mir eine generische Klasse für einen einfachen Ringspeicher schreiben. Dazu verwalte ich (genau wie TList<T> ) die Elemente des Speichers in einem array of T . Das compiliert soweit ganz gut, bis ich die Add-Funktion implementieren will. Dann bekomme ich den Fehler:

Code:

E2571 Typparameter 'T' hat keine Klassen- oder Interface-Einschränkung

Was soll mir das sagen und warum kann ich es nicht genau so machen wie bei TList. Hier mal der auf nötigste zusammengestrichene Code:

Delphi-Quellcode:

type
 TRing<T> = class(TEnumerable<T>)
 private
  FItems: array of T;
 {...}
 public 
   procedure Add(const Value: T);
   {...}
 end;

{...}

procedure TRing<T>.Add(const Value: T);
var
  Pos: Integer;
begin
  Pos := (Current + 1) mod Size;
  FItems[Pos] := T;   // <- hier meckert er
end;

Die Add-Methode einer einfachen Liste scheint aber genau so zu funktionieren. Also .. was tun?

[jbg]

Ändere das T mal in Value ab:

FItems[Pos] := Value; // <- hier meckerte er

[Codewalker]

grks, manchmal wird man einfach betriebsblind (wobei die Fehlermeldung nicht hilfreich war).
Danke Dir

[jaenicke]

So einen Ringspeicher habe ich gerade erst implementiert. Dabei habe ich für den Zugriff auf die Elemente zu Pointern gegriffen, so dass ich auch Records darin speichern und direkt darauf zugreifen kann.

// EDIT:
Sprich:

Delphi-Quellcode:

  TCircularBuffer<T> = class
  public
    type
      TBufferPointer = ^T;
  strict private
    var
      FElements: TArray<T>;
  [...]
  public
    type
      TBufferEnumerator = class(TEnumerator<TCircularBuffer<T>.TBufferPointer>)
      [...]
    procedure Next;
    function GetEnumerator: TBufferEnumerator;
    property Current: TBufferPointer read GetCurrent;
    property Size: Integer read GetSize write SetSize;
    property Element[AIndex: Integer]: TBufferPointer read GetElement; default;
  end;