работа с указателем для списка

[eugrita]

Есть класс

Код:

Type TElement = class
    suc: ^TElement;
    procedure Print;virtual; {}
    constructor Init;
    destructor Destroy;
  end;
type TE=^TElement;

надо написать функцию добавления элемента в список.
Для убедительности приведу работающий код C++

Код:

  void TQueue::addEL(TElement *e)  //добавление элемента
 {
  if (first==NULL)
	    { first=last=e; e->nxt=NULL;}
   else
   { e->nxt=first;first=e;}
 }

добился чтобы в дельфевую addEL передавался также указатель - для этого ввелен тип TE

Код:

 procedure TQueue.addEL(var val: TE);
  begin
    if first=nil  then
       begin first:=val; last:=val; end
    else
     begin val.suc^:=@(first); first:=val; end;
  end;

получилось очень накручено - верно ли? другие попытки просто компилятор не пропускал

[zubr]

Код:

type 
TElement = class
    suc: TElement;
    procedure Print;virtual; {}
    constructor Create;
    destructor Destroy;
 end;

procedure TQueue.addEL(val: TElement);
 begin
    if first=nil  then
    begin 
         first:=val;
         last:=val; 
    end
    else
     begin 
        val.suc:=first; 
        first:=val; 
    end;
 end;

В объектном паскале тип класс - это на самом деле указатель на класс, поэтому нет смысла городить двойные указатели.