Einzelnen Beitrag anzeigen

simjoh

Registriert seit: 13. Nov 2006
Ort: Asslar
99 Beiträge
 
Delphi 7 Enterprise
 
#42

Re: Hilfe beim Übersetzten von C in Delphi

  Alt 25. Mär 2007, 06:35
Haaaaaaaaaallo Robert,

das Prog macht folgendes: Ich spiele manchmal und aus Spaß ein bischen Poker, bin gelernter Mathematiker und interessiere mich daher für die Wahrscheinlichkeiten bei diesem Spiel. Es gibt eine Software, FreePHG, kann man auch kostenlos runterladen auf http://www.jukofyork.com/freephg.htm, mit dem man die Handhistory, also eine Dokumentation der gespielten Hände, aus dem PartyPokerspeicher auslesen kann. FreePHG erzeugt eine Textdatei, in der dann jede Hand abgespeichert wird. Das sieht dann z.B so aus:

Game #5783806449 starts.

#Game No : 5783806449
***** Hand History for Game 5783806449 *****
$0.50/$1 Texas Hold'em - Monday, March 19, 01:45:53 ET 2007
Table Table 126468 (Real Money)
Seat 2 is the button
Total number of players : 6
Seat 1: CintaIkan ( $4.62 )
Seat 2: Garnbold ( $23 )
Seat 3: TUMERMORIN ( $36.59 )
Seat 4: freddYharps ( $30 )
Seat 5: nickmazda ( $27 )
Seat 6: hottarru ( $56.75 )
TUMERMORIN posts small blind [$0.25].
freddYharps posts big blind [$0.50].
** Dealing down cards **
nickmazda folds
hottarru folds
CintaIkan folds
Garnbold calls [$0.50]
TUMERMORIN calls [$0.25]
freddYharps checks
** Dealing Flop ** [ 7d, Th, 2d ]
TUMERMORIN checks
freddYharps bets [$0.50]
Garnbold calls [$0.50]
TUMERMORIN calls [$0.50]
** Dealing Turn ** [ 8h ]
TUMERMORIN checks
freddYharps checks
Garnbold bets [$1]
TUMERMORIN calls [$1]
freddYharps folds
** Dealing River ** [ 6d ]
TUMERMORIN checks
Garnbold bets [$1]
TUMERMORIN calls [$1]
Garnbold shows [ 8c, 2s ]two pairs, Eights and Twos.
TUMERMORIN doesn't show [ 7h, 3c ]a pair of Sevens.
Garnbold wins $6.50 from the main pot with two pairs, Eights and Twos.

Ich möchtet realtime ebenfalls den Speicher auslesen, deshalb übersetz ich das Prog FreePHG in Delphi, die Strings müssen nicht in einen Datei geschrieben werden, sondern ich möchte jeden String auf einem TPanel ausgeben. Geht sowas?

Liebe Grüße
Markus
  Mit Zitat antworten Zitat