Einzelnen Beitrag anzeigen

Rociel

Registriert seit: 13. Feb 2005
Ort: Könnern/MD
107 Beiträge
 
Delphi 2006 Personal
 
#4

Re: Pokerassistent

  Alt 17. Jul 2007, 23:35
Zitat von freak1988:
für die anderen vorschläge reichen meine programmierkenntnisse leider noch nicht aus, da muss ich mich erstmal schlau machen....
also mehrer forms sollten nicht das problem sein mit der delphi IDE einfach erstellen



1. Form:
Delphi-Quellcode:
uses [...],(name der unit fürs 2.Form);

...

//Button_Start procedure;
begin
NameForm2.Show;
setlength(NameForm2.Spieler,anzahlspieler-1);

for i:=0 to anzahlspieler-1 do
  begin
  NameForm2.Spieler[i].Name := editnamei.Text
  NameForm2.Spieler[i].Chips := StrToInt(editstartchips.Text)
  ...
  end;
NameForm1.Hide;

end;
(Frage: wieso rückt der das nicht ein? *grml* geht doch unten auch

2.Form:

Delphi-Quellcode:

type
  TrSpieler = record
    Name:string;
    Chips:integer;
    ...
   end;
  TSpieler = Array of TrSpieler;
  ...

var Spieler:TSpieler;

...

interface

uses uses "form3";

onshow: lade 3.Form;
3.Form:

Delphi-Quellcode:
uses ..., "Form2";

type

...

onclick auf spielermachtwas, ändere Spieler[i] entsprechend dem was er getan hat
und lade nächsten spieler
da die unit von form2 "oben" eingebunden wird, kannst du direkt auf die Variable Spieler dann zugreifen.

wenn der spieler dann was getan hat kannst du auch noch NameForm2.aktualisiere aufrufen,
in der procedur sollen halt dann die statistiken aktualisiert werden, nachdem der spieler gestzt o.ä. hat

das ist so die grobdisposition.

hab grad meine Externe Platte (mit delphi)nicht hier, sonst würd ich dir das gründgerüst schicken.
Kommt ein Nullvektor zum Psychiater: "Herr Doktor, Herr Doktor ich bin so orientierunglos."
Mitglied der anonymen Algebraabhängigen
  Mit Zitat antworten Zitat