Random

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
randomize();
i := random(24)+1;
showmessage(inttostr(i));

end;

Stoney

Risikerer (hvis det staves sådan) man så ikke at få det samme tal igen?

Det skal bare være tilfældigt fra hver gang programmet startes.

jo, det kan du godt risikere.
Men du skrev du ville undgå den startede med samme tal hver gang.

Stoney

Det er til sådan et større eller mindre end spil, så det samme tal må ikke komme to gange under hver runde (ny runde startes ved at lukke programmet så derfor for hver start op).

Hvis du har en løsning til ovenstående må du meget gerne skrive den.

Jeg kigger på det senere i aften

Stoney

Okay, tak

Drop en button1 og en listbox1
Listbox1 er kun med for at vise hvilke tal der endnu ikke er trukket

var
  Form1: TForm1;
  strlist : Tstringlist;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var

i : integer;
antaltilbage : integer;
begin

strlist := Tstringlist.Create;
For I := 1 to 24 do
strlist.Add(inttostr(i));


end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,ran : integer;

begin
randomize();
ran := random(strlist.Count) ;

strlist.Delete(ran);
listbox1.Items.Assign(strlist);
if strlist.Count = 0 then
showmessage('Game over, alle tal er trukket');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
strlist.Free;
end;

Stoney

rettelse, så du også kan se hvilke tal der blev udtrukket

var
  Form1: TForm1;
  strlist : Tstringlist;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var

i : integer;
antaltilbage : integer;
begin

strlist := Tstringlist.Create;
For I := 1 to 24 do
strlist.Add(inttostr(i));


end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,ran : integer;

begin
randomize();
ran := random(strlist.Count) ;
showmessage('Udtrukket tal: ' + strlist.Strings[ran]);

strlist.Delete(ran);
listbox1.Items.Assign(strlist);
if strlist.Count = 0 then
showmessage('Game over, alle tal er trukket');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
strlist.Free;
end;

Stoney

Takker