Re: [fpc-devel] TLinkedList

[Micha Nelissen]

On Fri, 23 Dec 2005 22:30:05 +0100
Florian Klaempfl <[EMAIL PROTECTED]> wrote:

> Micha Nelissen wrote:
> > 
> > Comments are welcome.
> 
> Make it a generic for use in a fpcontnr unit in fpc 2.1.x :)

Voilà :-). Maybe not in the way you imagined, but a nice test for generics
anyway :-). Seems that returning generic type does not work, and properties
do not work.

Micha

unit genlist;

{$mode objfpc}{$h+}

interface

uses
  linkedlist;

type
  TGenericLinkedList = generic(T) class(TLinkedList)
  public
//error below    function GetItem: T;
    procedure SetItem(const NewItem: T);
  public
    constructor Create;
    
    procedure Add(const AItem: T);
    procedure Insert(const AItem: T);
    function FindItem(const AItem: T): boolean;
  
//error: identifier not found T:    property Item: T read GetItem write SetItem;
  end;

implementation

constructor TGenericLinkedList.Create;
begin
  inherited;

  ItemSize := sizeof(T);
end;

(*
{ error: undefined identifier T }
function TGenericLinkedList.GetItem: T; inline;
begin
  Result := T(inherited GetItemPointer^);
end;
*)

procedure TGenericLinkedList.SetItem(const NewItem: T); inline;
begin
  Move(NewItem, inherited GetItemPointer^, sizeof(T));
end;

procedure TGenericLinkedList.Add(const AItem: T); inline;
begin
  Last;
  FEof := true;
  Insert(AItem);
end;

procedure TGenericLinkedList.Insert(const AItem: T); inline;
begin
  Move(AItem, inherited Insert^, sizeof(T));
end;

function TGenericLinkedList.FindItem(const AItem: T): boolean; inline;
begin
  Result := inherited FindData(@AItem);
end;

end.

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel