有一位網友..提出這樣的問題.. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58856    於是我幫她找了資料..發現一個元件TCARD(撲克牌圖形元件).. 還蠻有趣的..就想說玩一玩..順便練習寫AI 程式一開始先做一些使用者介面的初始化..開始發牌時..使用花式洗牌法將牌 錯開..然後取前22張牌..當作發牌的依據..奇數發給玩家..偶數發給AI.. AI會根據目前已經發的牌來加總平均..算出未來的牌的平均值..決定是否跟牌 另外.他也會判斷是否您已經快贏了(20或21).. 然後放手一搏繼續跟牌(反正都要輸了..拼一下也許會平手).. 花一個多小時完成..介面還挺美觀..程式也寫的很簡潔.. 自己試著玩..竟然每次都輸給我寫的 >_< (錢都輸光光) 大家可以試玩看看..看能不能贏喔 ^ >> ------------------------------------------ 說明..解壓縮

附加檔案：58903_BLACK_JACK.rar

這個太難了...可以幫我找一個簡單點的嗎 只要有發牌 累積點數 暴了會顯示 重新開始 離開 老實說是作業 實在做不出來....麻煩了 謝謝

引言: 這個太難了...可以幫我找一個簡單點的嗎 只要有發牌 累積點數 暴了會顯示 重新開始 離開 老實說是作業 實在做不出來....麻煩了 謝謝

這會難嗎..真正自己寫的程式部分還不超過100行呢.. 您說的這些功能..想要更短..我想也短不了多少吧.. 這已經比我 >(我都有上註解喔) 原理我上面有說了..您如果真的有心要學好 > 會發表這篇文章..是因為我沒做過..想說做看看..分享給需要做類似功能的人 參考用..希望 >

請問一下 geniustorn 您所謂的 花式洗牌 是怎麼樣的寫
一般的牌發不都是用亂數函式 random(); 寫成的嗎
難道還有別種更好的洗牌方法嗎

我在 google 搜尋TCARD元件 找到
TCard V1.1 (無需DLL撲克圖形控件)
http://dev.21tx.com/2005/05/05/10628.html
另外根據
接龍的遊戲code http://delphi.ktop.com.tw/board.php?cid=30&fid=75&tid=41829 裡
superlevin 提到
可以到http://www.gferrari.com/網址去，點選左邊的My Delphi page。下載一個叫做TCard撲克牌元件。
再來，就要靠自己聰明的小腦袋去寫出判斷的程式了！

------
才疏學淺