Kortspil

Tags:    delphi

Hej udviklere!
Jeg er igang med at lave et kortspil, hvor det er meningen, at man kun skal kunne lægge et kort ud per tur (fra en bunke med kort til en tom bunke). Men jeg ved ikke, hvordan man "låser" bunkerne, så man ikke længere kan trække et kort ud!

Jeg har følgende:
______________________________________________
if bunke1.getSize=1 then
begin

//her skal der så være en kode for at "låse" bunke1!

end;
______________________________________________

Man kan sikkert også gøre det på en del andre måder, som i meget gerne må skrive til mig!



Måske laver en lille Boolean-variabel ?
_______________________________________
-----------------------{ nife}------------------------_______________________________________



Kan jeg ikke få et kodeeksempel på det??



Kan jeg ikke få et kodeeksempel på det??


Nu er det her jo uden overhovedet at have set på din egentlige kode ;)
Først lave du en variabel oppe i toppen... fx

var
Form1: TForm1;
GetCard: Boolean;

Du skal så huske at sætte den til true i din forms onCreate eller OnShow...

Fold kodeboks ind/udKode 


Og så der hvor du henter kortet skriver du:

If GetCard then
begin

//Alt din kode som henter kortet

end;


Håber det kan bruges :D


/Mads



Kan jeg ikke få et kodeeksempel på det??


Nu er det her jo uden overhovedet at have set på din egentlige kode ;)
Først lave du en variabel oppe i toppen... fx

var
Form1: TForm1;
GetCard: Boolean;

Du skal så huske at sætte den til true i din forms onCreate eller OnShow...

Fold kodeboks ind/udKode 


Og så der hvor du henter kortet skriver du:

If GetCard then
begin

//Alt din kode som henter kortet

end;


Håber det kan bruges :D


/Mads



Tak skal du have det kan det helt sikkert ! Har ikke tjekket denne tråd i lang tid, da jeg troede, at jeg var blevet glemt! Tusind tak!



Den kode du har skrevet i "kodeeksempel", hvor skal den indsættes henne?
Og det sidste stump kode, der står nederst under "kodeeksempel"??



Jeg har en Unit med MouseDown, MouseUp, ProgInit og NewGame. Dernæst har jeg en anden unit med FormCreate.. Det er i MouseDown jeg har skrevet koden
_______________________
if bunke1.getSize=1 then
begin

....?

end;
_______________________

Håber du forstår..



Har fundet ud af det! Jeg tænkte mig bare ikke om i starten.. Jeg lukker tråden nu..



t