[Delphi] Array leegmaken

[Freak187]

Ik ben bezig met een simpel spel te ontwikkelen. De bedoeling is dat 20 getallen getrokken worden, random wel te verstaan. En die mogen niet hetzelfde zijn.
Mijn probleem is met een Array waarin 20 random getallen weggeschreven worden die niet hetzelfde zijn( deze functie werkt goed). Tot hier gaat het goed, maar als de 2de keer gespeelt wordt dan krijg je maar 19 random getallen. En de derde keer 17 of 16 getallen. Nu denk ik dat het niet goed wordt weggeschreven in de Array.

Hierbij toegevoegd de functie van de not duplicate.

function notDuplicate(aBall : Integer) : boolean;
var i : 1..20;
duplicate : boolean;
begin
duplicate := false;

for i := 1 to 20 do
begin
if balls[i] = aBall then
begin
duplicate := true;
break
end
end;

notDuplicate := not duplicate
end;

Misschien zit hier al de fout in, maar ik denk dus dat de Array niet leeggemaakt wordt, is hier een duidelijke functie voor? Om die Array leeg te maken.

Alvast bedankt.

[Marv]

Begint een array niet bij 0 te tellen?

[LordLarry]

Marv schreef op 05 november 2002 @ 12:43:
Begint een array niet bij 0 te tellen?

Default wel, maar je kan je low en high bounds zelf kiezen als je wilt...

[LordLarry]

Freak187 schreef op 05 november 2002 @ 12:42:
Misschien zit hier al de fout in, maar ik denk dus dat de Array niet leeggemaakt wordt, is hier een duidelijke functie voor? Om die Array leeg te maken.

Je code ziet er goed uit (als je array met 1 begint)..

Als je bang bent dat het in de andere code zit, waarom post je die dan niet?! Zo kunnen we je niet verder helpen...En gebruik dan aub code tags. Zie de FAQ


PS: Gebruik je wel in het begin van je programma Randomize? Dat maakt de getallen meer random...

[Freak187]

Maar is er geen commando dat gewoon die Array leegmaakt? Ik heb al iets geprobeert:

procedure clearOldNumbers;
var i : 1..20;
begin
for i := 1 to 20 do
begin
balls[i] := 0;
end;
end;

Gewoon een probeerseltje, maar dit werkte niet goed.

[MaxxRide]

Idd even de seed instellen (Randomize dus)...

De code die je laat zien ziet er goed uit!

Misschien kun je de adnere code posten?

[LordLarry]

Freak187 schreef op 05 november 2002 @ 12:56:
Maar is er geen commando dat gewoon die Array leegmaakt? Ik heb al iets geprobeert:


[...]


Gewoon een probeerseltje, maar dit werkte niet goed.

Gebruik aub code tags...zie de FAQ
Nee er is niet direct een functie die een array leeg maakt, zie ook niet in waarom dat in jouw geval nodig is. Je kan het array toch meteen vullen met nieuwe random getallen?!

Je probeerseltje zou gewoon goed moeten werken, als je array maar vanaf 1 tot 20 gaat (default gaat ie vanaf 0)

[LordLarry]

Als je wilt dat we je verder helpen moet je wel onze vragen beantwoorden. Dan bepalen wij wel waar de fout zit Anders schiet het niet op...

[Freak187]

Bedankt voor jullie hulp, maar het probleem is opgelost.

Stom foutje over het hoofd gezien.

Heel erg bedankt iig.


Kan een slotje op.

LordLarry: Volgende keer zal ik meer vragen ok

[LordLarry]

Freak187 schreef op 05 november 2002 @ 13:07:
Bedankt voor jullie hulp, maar het probleem is opgelost.

Stom foutje over het hoofd gezien.

Heel erg bedankt iig.


Kan een slotje op.

Geen dank, maar we willen graag weten wat het nou was. Dat helpt misschien ook andere mensen die met hetzelfde probleem zitten en geeft degene die met je mee zoeken ook een gevoel dat ze wel of niet op de juiste weg zaten.

LordLarry: Volgende keer zal ik meer vragen ok

Nee, meer onze vragen antwoorden aub

[ Voor 0% gewijzigd door LordLarry op 05-11-2002 13:11 . Reden: quote ]

[Aetje]

code:

function notDuplicate(aBall : Integer) : boolean;
var     i : integer;
        duplicate : boolean;
        balls : array[1..20] of integer;

begin
  duplicate := false;

  for i := 1 to 20 do
  begin
    if balls[i] = aBall then
    begin
      duplicate := true;
      break
    end
  end;

  notDuplicate := not duplicate
end;

Zo, dit kan uitgevoerd worden...

[MaxxRide]

meuh

[Willem]

meuh == ontopic

[whoami]

[nohtml]

Freak187 schreef op 05 november 2002 @ 13:07:
Bedankt voor jullie hulp, maar het probleem is opgelost.

Stom foutje over het hoofd gezien.

Heel erg bedankt iig.

Wat was het foutje dan? Misschien handig om het hier eens te posten.

Kan een slotje op.

Hoeft niet. 't is niet omdat een topic opgelost wordt, dat er dan een slotje op komt.

[MaxxRide]

Begreep de post die voor mij staat niet echt....