aus Randomwertebereich Zahlen ausschließen???

[igel457]

@himitsu

Auch wenn das eigentlich OT ist...

Ja, ich weiß ich habe gesündigt. Das ist mir auch gekommen, nachdem der nächstebeitrag gekommen ist.

Mit der Repeat..Until schleife ist es natürlich noch besser.

Zurück zum Thema:

Natürlich geht das auch mit Listen. Als erstes benötigst du mal eine Integer Liste. Entweder du programmierst sie selbst oder suchst einfach hier: TIntegerList

Und dann schreibst du dir eine Funktion die das macht:

Delphi-Quellcode:

function ForbbidenRandom(List:TIntegerList;Area:Integer):integer;
var i,r:integer;
    inarea:boolean;
begin
  while not inarea do
  begin
    r := random(area);
    for i := 0 to list.count-1 do
    begin
      inarea := r <> list[i]; 
      if not inrea then break;
    end;
  end;
end;