问题如下：

在窗体类中定义：
   MyStack: TStack;
    ppStr: string;


procedure TForm1.FormShow(Sender: TObject);
begin
  MyStack := TStack.Create;

  ppStr := 'jarry';
  MyStack.Push(@ppStr);

  ppStr := 'li';
  MyStack.Push(@ppStr);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str: ^string;
begin
  str := MyStack.Pop();
  ShowMessage(str^);
  str := MyStack.Pop();              //为什么第二次弹出不变！？
  ShowMessage(str^);
end;

你两次进栈用的都是同一个变量,只是改变了变量的内容,而没有改变变量的地址,两次进栈的指针是一样的
,而且变量只保存了最后的一次赋值

我现在在学数据结构！
对堆栈还不是很了解！
但是你对堆栈的概念还不是很清楚！这里有一篇关于堆栈的文章你可以看看 ！
堆和栈的区别（转）
原文链接：http://www.