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.