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.

[lizardking]

Zitat von nkaaa:

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

Schau Dir mal an, was Du mit "empty" ueberpruefst, also welchen Wert first in dem Fall hat, wenn "empty" true zurueckliefert. Und dann ueberleg mal ganz genau, ob im if...then-Zweig bei Push ueberhaupt was anderes passiert, als im else-Zweig.

Gruesse,

Lizzy

[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