大家好，我想請問該如何在delphi7中實作佇列？因為相關的書籍鮮少提到這個部份，所以都查不到相關的資料。
我是想要大略了解如何建立佇列與將資料放入佇列中與刪除的方法，以及將資料從佇列中抓出~ 煩請有瞭解這塊部分的大大能提供意見，謝謝^^

Delphi本身具有Tqueue的類別，在網路上查一下Delphi TQueue 會有很多例子。祝成功～

我有查到網路的相關寫法，然後我也把它改成我要的，且是寫在按鈕裡，如下：

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
type
cus_w_list=^cus_w_listRecord;
cus_w_listRecord=record
cus_w_name:string;
cus_w_id:string;
end;
var
cus_w_sheet_queue:TQueue;
cus_w_record_in:cus_w_list;
m,n:integer;
begin
m:=1;
cus_w_sheet_queue.Create;
new(cus_w_record_in);
cus_w_record_in.cus_w_name:='name';
cus_w_record_in.cus_w_id:='userid';
cus_w_sheet_queue.Push(cus_w_record_in);
end;
[/code]
但是執行時會一直出現這樣的錯誤訊息，經debugger工具測出是在new的時候會出錯，請問該如何解決 ＞＜? 因為我看到很多網路上的範例都是寫類似這樣的，不曉得哪裡有錯。

編輯記錄

類別的建立不是這樣做的～
你應該去翻一下DELPHI的書籍，同時Tqueue本身已經有一些做好的成員方法可以幫控制佇列。

後來我發現相同的寫法但是把變數改掉改成沒有底線相連的變數就可以正常使用了@@~ 

我找了很多書籍都沒有講到Queue的部份，不曉得您推薦哪一本書呢？

Delphi OnLine Help 就是最夯的書

另外，你真的有看書嗎？

看你的程式碼，是覺得，「你沒看」

基本語法都不會
cus_w_sheet_queue.Create; --> cus_w_sheet_queue := TQueue.Create;
new(cus_w_record_in); --> cus_w_record_in := new(cus_w_list);

很是糟糕阿！
===================引 用 liannfs 文 章===================
後來我發現相同的寫法但是把變數改掉改成沒有底線相連的變數就可以正常使用了@@~

我找了很多書籍都沒有講到Queue的部份，不曉得您推薦哪一本書呢？

編輯記錄

※資料結構與演算法討論區 » 以Delphi 實作Queue 類別，含範例
http://delphi.ktop.com.tw/board.php?cid=169&fid=963&tid=27155

------
努力會更接近成功

TstringList  就可以模擬佇列了
先進先出

------
xinjier禮品贈品