Delphi-Quellcode:
for i:=1 to 30 do //für 30 Edits
begin
if (E.Count>0) and (odd(i)= false) then begin
//JUNGEN in ungerade Edits
ID:=Random(E.Count); //Index raussuchen
TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID];
E.Delete(ID); //Text auf SL löschen
end else if (E2.Count>0) then begin
//Meadchen in gerade Edits
ID:=Random(E2.Count); //Index raussuchen
TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E2[ID];
E2.Delete(ID); //Text auf SL löschen
end else
// Beide Listen sind leer (bzw. ein Mädchen wäre dran aber die Mädchenliste ist leer)
Break;
end;
Ich weiss ja nicht genau was er machen soll, aber ich denke ein Prob könnte es gewesen sein, das auch wenn ein Junge gewählt wurde, in der Liste der Mädchen gelöscht wurde... zumal die ID für Jungen immer überschrieben wurde.