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....