Hallo,
ich versuche schon die ganze Zeit zwei Stringlisten unabhängig von einander, zufallsweise auf gerade und ungerade EditFelder zu verteilen, leider Funktioniert mein Code nicht so wie ich das mir gedacht habe was mach ich falsch? Es sollen alle Einträge egal ob es mehr Mädchen oder Jungen sind gesetzt werden...
Stringliste1 -> ungerade EditFelder
Stringliste2 -> gerade EditFelder
Delphi-Quellcode:
begin
E:=TStringList.Create; //JUNGEN
E.LoadFromFile(form1.OpenDialog1.FileName);
E2:=TStringList.Create; //MAEDCHEN
E2.LoadFromFile(form1.OpenDialog2.FileName);
for i:=1 to 30 do //für 30 Edits
begin
ID:=Random(E.Count); //Index raussuchen
ID:=Random(E2.Count); //Index raussuchen
if E.Count=0 and E2.Count=0 then Break;
if odd(i)= false then TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E[ID]; //JUNGEN in ungerade Edits
if odd(i)= true then TEdit(FindComponent('Edit'+IntToStr(i))).Text:=E2[ID]; //Meadchen in gerade Edits
E.Delete(ID); //Text auf SL löschen
E2.Delete(ID); //Text auf SL löschen
form2.caption:= 'Seatplan Designer';
end;
E.Free;
E2.Free;
end;
end;