delphi中关于队列的使用QUEUE

时间：2016-04-17 11:19:02
【文件属性】：

文件名称：delphi中关于队列的使用QUEUE

文件大小：167KB

文件格式：RAR

更新时间：2016-04-17 11:19:02

delphi QUEUE

delphi中关于队列的使用QUEUE,已在delphi7中调试通过。 学习queue的小例子。

立即下载

【文件预览】：
queue
----Project1.res(876B)
----Unit1.dcu(5KB)
----Unit1.dfm(2KB)
----Project1.cfg(434B)
----Project1.dpr(188B)
----Unit1.~dfm(1KB)
----Project1.exe(380KB)
----Project1.dof(2KB)
----Unit1.~pas(1KB)
----Unit1.pas(1KB)

网友评论

  • for i :=0 to Strlist.Count -1 do begin if StrToInt(Strlist.Strings[i]) mod 3 = 0 then queue.Push(StrNew(PChar(Strlist.Strings[i]))); //ÊÇ3µÄ±¶Êý·ÅÈë¶ÑÕ»ÀïÃæ end; while (True) do begin if queue.Count > 0 then begin cd :=queue.Pop; Memo2.Lines.Add(StrPas(cd)); StrDispose(cd); //ÊͷŶÑÕ» end else Break; end; queue.Free;
  • 很简单的例子，但写的很好，函数使用很到位
  • 很好的例子，谢谢！
  • 感谢分享，还可以！
  • 学习队列的很基础的例子，谢谢！
  • 很好的例子，感谢！
  • 可以用，性能提高不多
  • 很基础的例子
  • 可以使用，不错，
  • 学习了，谢谢分享。
  • 解我之急呀，而且感觉非常不错，太感谢了。
  • 很简单的例子，但写的很好，函数使用很到位
  • 很不错，豁然开朗!
  • 不错，有一个比较清晰的认识了！
  • 简单，实用。
  • 不错，就是用起来程序会比较慢
  • 很好的例子，简单易懂，这个是大大师的高手，真的很感谢。
  • 很不错的例子 通俗易懂
  • 支持一下，给我提供了好的素材

相关文章