Guten Morgen zusammen.
ich stehe vor einem Problem, vielleicht könnt ihr mir ja weiter helfen.
Ich habe ein Stringliste, die ich mit z.B. 16 Teilnehmer füll, sind aber nur 13 Teilnehmer vorhanden,
so brauche ich sogenannte "Freilose", die aber an festen positionen stehen müssen. ich habe das jetzt so gemacht :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a : TStringList;
i, j : integer;
begin
a := tStringList.Create;
case StrToInt(edit1.Text) of
1 : begin
for i := 0 to 15 do
a.Add('Tester ' + IntToStr(i));
a.Add('Freilos');
a.Exchange(16, 1);
end;
4 : begin
for i := 0 to 11 do
a.Add('Tester ' + IntToStr(i));
for j := 1 to 4 do
a.Insert(11 + j, 'Freilos');
a.Exchange(15, 1);
a.Exchange(14, 9);
a.Exchange(13, 5);
a.Exchange(12, 13);
end;
end;
memo1.Lines := a;
end;
Gibt es noch einen andere möglichkeit, dies zu bewerkstelligen ??
Grüße Christian