S: Hilfe bei Turbo Pascal

[Ghostwalker]

Warum nicht einfach eine nette kleine verkettet Liste ???

Geht ganz einfach:

Code:

TYPE
    PElement = ^TElement;
    TElement = record
                 Wert : Integer;
                 Next : PElement;
               end;


var
  Anf : PElement; (* Root-Zeiger *)
  Wrk : Pelement; (* Arbeits-Zeiger *);

procedure AddWert(AWert:integer);
begin
  if ANF = NIL then
  begin
     New(ANF)
     WRK := ANF;
  end
  else
  begin
    wrk := wrk^.next;
    New(wrk);
  end;
  wrk^.wert := AWert;
end;

Eine Collection wär hier mit Kanonen auf Spatzen geschossen