anfänger: stack als klasse erstellen

[nkaaa]

Delphi-Quellcode:

procedure Tstack.push(info : String);
var help : Pinfo;
begin
  new(help);
  help^.info:=info;
  help^.next:=nil;
  if empty then first:=help
    else
      begin
        help.next:=first;
        first:=help;
      end;
end;

Delphi-Quellcode:

procedure Tstack.push(info : String);
var help : Pinfo;
begin
  new(help);
  help^.info:=info;
  if empty then
    begin
      help^.next:=nil;
      first:=help;
    end
    else
      begin
        help.next:=first;
        first:=help;
      end;
end;

verdammt.. ich sehe ehrlich keine Möglichkeit, wie ich das verbessern könnte