anfänger: stack als klasse erstellen

[Khabarakh]

Delphi-Quellcode:

begin
  if (first=nil) then 
    first := help
  else
  begin
    help.next:=first;
    first:=help;
  end;
end;

Delphi-Quellcode:

procedure TForm1.createClick(Sender: TObject);
begin
  st := TStack.Create;
end;