Listboxen auf Edit aufteilen...

[DennisHB]

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.