Registriert seit: 10. Jun 2003
Ort: Berlin
9.582 Beiträge
Delphi 11 Alexandria
|
AW: Generics und Typparameter
6. Nov 2011, 19:23
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;
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
Geändert von jaenicke ( 6. Nov 2011 um 19:27 Uhr)
|