Feste Positionen in Stringlisten

[guidok]

Eine etwas abgewandelte Version, die die gesamte Liste in einem Durchlauf füllt:

Delphi-Quellcode:

var
  i, FixedReq: Integer;
begin
  FixedReq := CMax - CUser; //Anzahl der benötigten Festplätze

  for i := 1 to CMax do
  begin
    if (FixedReq > 0) and (i in CFixed)  then
    begin
      lb.Items.Add('Freilos'); //Festplatz einfügen
      Dec(FixedReq); //Ein Festplatz weniger wird benötigt
    end else
    begin
      lb.Items.Add('Teilnehmer'); //Teilnehmer einfügen
    end;
  end;
end;