Problem mit Schleife und Zufallszahl

[Privateer3000]

Hallöchen,
für mein "Bürospielchen" ärgert mich folgendes Problem:

Delphi-Quellcode:

auslosung(ausquer:TADOQuery;auskw,jahr:String;anzahl:Integer)
...
if gefun > 3 then begin
i:=0;
...
while (i < anzahl) do begin
   Randomize;
   gezog:=Random(gefun-1);//zufälliger DS
   ausquer.RecNo:=gezog;// DSZeiger setzen
   auswahl.Add(ausquer.fieldbyname('Kollege').AsString+'   '+ausquer.fieldbyname('Phrasenschwein').AsString);
   inc(i);
  end;

Hin und wieder kommt dann eine Fehlermeldung
"Die Argumente sind vom falschen Typ,liegen außerhalb des Gültigkeitsbereiches oder
sind miteinander unvereinbar"
Nun habe ich per Test eingegrenzt dass die Schleife der Übeltäter ist.
Aus einer DB werden DS ermittelt und aus diesen zufällig anzahl x gezogen.
Die Variablen:
anzahl wird der procedure übergeben
gefun ist ein Recordcount
auswahl ist TStrings

Warum klappt das mehrfach dann aber wieder knallts???
Hat jemand eine Idee?

PS: ich weiß, ja ich hab Langeweile....

[Furtbichler]

Na, was für einen Wert hat denn 'gezog', 'gefun' und 'ausquer.Recordcount' wenn der Fehler kommt?
Tipp:

Delphi-Quellcode:

while (i < anzahl) do begin
    Randomize; // <<<<<< sowieso überflüssig hier
    gezog:=Random(gefun-1);//zufälliger DS
    try
      ausquer.RecNo:=gezog;// DSZeiger setzen
      auswahl.Add(ausquer.fieldbyname('Kollege').AsString+' '+ausquer.fieldbyname('Phrasenschwein').AsString);
{*}  except
{*}   ausquer.RecNo:=gezog;// <<<<<<<< Breakpoint auf diese Stelle
{*}   auswahl.Add(ausquer.fieldbyname('Kollege').AsString+' '+ausquer.fieldbyname('Phrasenschwein').AsString);
{*} end;
    inc(i);
   end;

Aber ei viel wicht Frag ist do, wies besteh dei Varnam nu au den ers Silb? :stupid: (Rethorische Frage)

[mkinzler]

In welcher Zeile?

[DeddyH]

Man sollte Randomize nur einmalig aufrufen, und Random kann auch 0 zurückgeben. Wenn man da 1 subtrahiert, welchen Datensatz liest Du denn dann aus?

[Furtbichler]

Menno, Spielverderber. Er sollte selber drauf kommen.

[Privateer3000]

Viel Dank Leute,
ihr habt natürlich Recht.
Recordcount -1 ist Unsinn.
Randomize wird nun vor der Schleife initialisiert.
Exception ist natürlich besser,
wie macht man dass ungültiges übersprungen wird
so das auf jeden Fall anzahl x wiederholt wird?

Viele Grüße

[DeddyH]

Schließ doch Ungültiges von vornherein aus, das ist doch besser als eine Exception.