anfänger: stack als klasse erstellen

[nkaaa]

vielen dank euch allen, kaum zu glauben, aber es funktioniert endlich

Zitat von Hawkeye219:

Wenn du dir die Routine nach der Korrektur etwas genauer ansiehst, wirst du sie sicher vereinfachen können...

Gruß Hawkeye

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;

meinst du so vereinfachen?
er würde dann einmal die zuweisung help^.next:=nil; sparen, wenn der stack nicht leer ist.