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;