发信人: kingron()
整理人: kingron(2000-12-05 19:34:18), 站内信件
|
有,使用TStack类即可!tstack.push,tstack.pop....
Ex:
uses contnrs;
var
s:tstack;
v:string;
b:^string;
begin
s:=tstack.Create;
v:='abcd';
s.Push(@v);
b:=s.pop;
showmessage(b^);
end;
【 在 perfic (聪明的大貓) 的大作中提到: 】
: 我有个程序要用到堆栈的,
: 如果用数组或者链表来实现可能比较麻烦,delphi中有没有现成可以使用的堆栈?
:
: 如何用的?
: .......
-- E_Mail:[email protected] OICQ:10228518
<BLINK>【</BLINK>
<BLINK>◎■■■■〓〓〓〓〓〓〓〓〓〓></BLINK> ◆没有最好,只有更好◆
<BLINK> 【</BLINK>
※ 修改:.kingron 于 Dec 2 13:21:05 修改本文.[FROM: 202.103.102.58] ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.102.58]
|
|