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