Teste om indholdet i et array er false

Du skal teste alle, men det går stinkende hurtigt, faktisk kan du ikke
nå at stave til IB inden det er gjort, med mindre vi snakker flere millioner
entries, men nu ligner det jo noget Poker, så der er nok ikke så mange

Stoney

nå okay...

har du en smart function så man nemt kan teste om de alle er false?

jeg har stykket dette sammen:

procedure check_Valid(isvalid : integer);
var
x, y : integer;
begin
for x := 0 to MaxSuits do begin
for y := 1 to MaxCard do begin
if Valid[x][y] = true then
isvalid := isvalid+1;
end;
end;
end;


men synes ikke helt at det virker ordentligt.

Du skal sætte var foran isvalid, så dit procedurehoved ser således ud:

procedure check_Valid(var isvalid : integer);

Det er også værd at overveje at sætte
  isvalid=0;
i proceduren.

den virker stadig ikke efter hensigten.

her er min kode:

--------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const

  MaxCard = 13;
  MaxSuits = 3;
  MaxPokerCards = 4;
  MaxDeck = 52;

  Numbers: array[1..MaxCard] of string =
  ('2', '3', '4', '5', '6', '7', '8', '9', '10', 'Jack', 'Queen', 'King',
    'Ace');

  Suits: array[0..MaxSuits] of string =
  ('Spades', 'Diamonds', 'Clubs', 'Hearts');


var
  Form1: TForm1;
  Valid: array[0..MaxSuits, 1..MaxCard] of boolean;


implementation

{$R *.dfm}


procedure check_Valid(var isvalid : integer);
var
x, y : integer;
begin
isvalid := 0;
for x := 0 to MaxSuits do begin
for y := 1 to MaxCard do begin
if Valid[x][y] = true then
isvalid := isvalid+1;
end;
end;
end;


function select_card(tekst: TLabel) : string;
var
suit,number : string;
ransuit, rannumber, valid_card : integer;

begin

Randomize;
ransuit := random(3);
rannumber := random(MaxCard)+1;
if Valid[ransuit][rannumber] = false then begin
check_Valid(valid_card);
if valid_card > 0 then
tekst.Caption := 'No more cards'
else
select_card(tekst);
end
else begin
suit := Suits[ransuit];
number := Numbers[rannumber];
Valid[ransuit][rannumber] := false;
tekst.Caption := suit+' '+number;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
select_card(label1);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
x,y : integer;

begin

for x := 0 to MaxSuits do begin
for y := 1 to MaxCard do begin
Valid[x][y] := true;
end;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,y : integer;

begin

for x := 0 to MaxSuits do begin
for y := 1 to MaxCard do begin
Valid[x][y] := true;
end;
end;
Label1.Caption := '';

end;


end.

---------------------------------

Den popper frem og siger: 'No more cards' når den ikke skal. Det burde den først sige når der ikke er flere.

Det skal vel ikke være
if valid_card > 0 then
men
if valid_card = 0 then

når man har trykket ca. 40 gange skriver den:

"Project Project1.exe raised exception class EStackOverflow with message 'Stack overflow'. Process stopped. Use Step or Run to continue."

Jah, din select_card er lidt sjov. Du kan jo risikere at den vælger et allerede
taget kort mange gang i træk. Tænk noget mere over det.

ja det er det. Men jeg ved ikke hvordan jeg skal lave den ellers?

Du kunne lave den ikke-rekursivt.
Hvis der er kort tilbage, så vælgt eet tilfældigt.
Hvis den er optaget lægger du een til, indtil du finder en ledig.
(Og ryger du ud over kanten starter du forfra).

Det kan gøres anderledes, men det er bedre end det du har nu ;)

den forstod jeg ikke helt?

hvis du mener at jeg skal gøre det omvendt, så prøvede jeg sådan her:

-----------------------------------

function select_card(tekst: TLabel) : string;
var
suit,number : string;
ransuit, rannumber, valid_card : integer;

begin

Randomize;
ransuit := random(3);
rannumber := random(MaxCard)+1;
check_Valid(valid_card);
if valid_card <> 0 then begin
if Valid[ransuit][rannumber] = false then
select_card(tekst)
else begin
suit := Suits[ransuit];
number := Numbers[rannumber];
Valid[ransuit][rannumber] := false;
tekst.Caption := suit+' '+number;
end;
end
else
tekst.Caption := 'No more cards';
end;
------------------------------------------------

men det gir samme resultat.

Det gør ingen forskel, nej. Jeg siger, at du kunne overveje at lave den ikke-rekursivt.

hvad vil det sige, ikke-rekursivt?

Det er rekursivt når en procedure eller funktion kalder sig selv.

okay...

men hvordan kan jeg få den til at vælge et nyt kort, uden at starte igen?

En while-løkke kan være nyttig i den situation.

kan du give et eksempel?

jeg har fundet en løsning.

smider du et svar?

Sorry - jeg overså din bemærkning fra for 4 dage siden. Men ok, du har en løsning.
Jeg samler slet ikke på point, tak. Det er vel ok selv at svare og acceptere eget svar.

ok...

svar