Mein Problem ist folgendes. Es sind maximal 16 Teilnehmer, sind weniger Teilnehmer vorhanden müssen Freilose gesetzt werden, die aber an bestimmten Postionen stehen müssen.
Das Programm wird zu einem späteren Zeitpunkt erweitert, d.h. das dann z.b. 64 Teilnehmer vorhanden sind.
Beispiel :
Teilnehmer 38 (benötigtes System 64er)
Freilose 26 (es sind bis zu 29 Freilose möglich)
Das heißt :
Delphi-Quellcode:
case aFreilose of
0 : begin
for i := 1 to aTeilnehmer do
aStringListe.Add('Teilnehmer ' + IntToStr(i));
end;
1 : begin
for i := 1 to aTeilnehmer do
aStringListe.Add('Teilnehmer ' + IntToStr(i));
aStringListe.Add('Freilos');
aStringListe.ExChange(Letzte Position, 1)
end;
2 : begin
end;
..
..
26 : begin
for i := 1 to aTeilnehmer do
aStringListe.Add('Teilnehmer ' + IntToStr(i));
for j := 1 to 26 do
aStringListe.Insert(Letzte Position + j, 'Freilos');
aStringListe.ExChange(Letzte Position, 1);
aStringListe.ExChange(Letzte Position - 1 , 10);
usw. bis alles Freilose positioniert sind
end;
..
..
29 : begin
end;
end;
Es würde dann einen ziemlich langen quellcode geben.
Ich hoffe, daß dieses Beispiel besser ist, welches mein Problem dastellt.
Danke für deine Antwort.