var
s:tstack;
v1,v2:string;
b:^string;
i:integer ;
begin
s:=tstack.Create;
v1:='abc';
v2:='123';
s.Push(@v1);
s.Push(@v2);
// i:=s.Count ;
// showmessage(pchar(inttostr(i))) ;
b:=s.pop();
showmessage(b^);
end ;
end;
以上代码为什么Show出结果为'123',而不包括'abc',
堆栈是后进先出,123 在 abc 后面入栈,当然于abc之前出栈。如果你希望abc先出,那应该使用队列而不是堆栈。
xuexi le....