Listboxen auf Edit aufteilen...

[Knotti]

Mit deinem Code bekomm ich leider immer folgenden Fehler..

Der Code sieht jetzt so aus

Delphi-Quellcode:

procedure TForm2.dxButton1Click(Sender: TObject);
var    i, ID:Integer;
begin
  if form6.CheckBox7.Checked then
  begin
  E:=TStringList.Create;    //Datei 1
  E.LoadFromFile(form1.OpenDialog1.FileName);
  E2:=TStringList.Create;   //Datei 2
  E2.LoadFromFile(form1.OpenDialog2.FileName);
  E.AddStrings(E2);         //Zusammenführen
  E2.Free;   //Datei 2 kann weg
  for i:=1 to 30 do //für 24 Edits
    begin
    ID:=Random(E.Count);  //Index raussuchen
    if E.Count=0 then Break;
    TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //Text in Edit
    E.Delete(ID);  //Text auf SL löschen
    form2.caption:= 'Seatplan Designer';
    end;
  E.Free;
end
else
begin
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;
end;
end;

Wenn die Checkbox aktiviert ist werden sie Namen warlos verteilt falls nicht geordnet...