Feste Positionen in Stringlisten

[guidok]

Mal als Anregung:

Delphi-Quellcode:

const
  CMax = 10; //Gesamtanzahl der Plätze
  CUser = 6; //Anzahl der derzeitigen Teilnehmer
  CFixed = [1,3,5,7]; //Hier stehen die festen Positionen

var
  i: Integer;
begin
  //Regulären Teilnehmer einfügen
  for i := 1 to CUser do lb.Items.Add('Teilnehmer: ' + IntToStr(i));
  //Feste Positionen einfügen
    for i := 1 to CMax do
      if (lb.Count < CMax) and (i in CFixed) then lb.Items.Insert(i - 1,'Freilos');
end;

Das muss sicher noch etwas ausgefeilt werden, aber sollte gehen.