Бесконечный цикл Until Random

[anaschu]

Сообщение от evg_m

по "определению" Random 0<z<qpeople и проверять это НЕЗАЧЕМ.
// А если там нет НИ ОДНОГО нужного пола??? мы так и будем искать то чего там нет?! и делать это бесконечно...

Да, понял. Я вот только не понимаю, почему у меня не получается никому поставить лайк.

Код такой работает теперь:

function TModel.ChoiceForMarriage1_1_1_1_0(x,y:integer):integer;
var
qpeople,i,z:integer;
condition:boolean;
begin
  qpeople:=length(FField.FArea[X, Y].Ffamily.APeople);
  for I := 0 to qpeople-1 do
  begin
    if  FField.FArea[X, Y].Ffamily.APeople[i].Sex then
    condition:=true;
  end;

  if condition then repeat
  begin
    Randomize();
    z:=Random(qpeople);
    if not (z-1>=qpeople)and (z>=-1) and (FField.FArea[X, Y].Ffamily.APeople[z].sex) then
    begin
     Result:=z;
     exit;
    end;
  end;
  Until z>-1;


end;

что бы поменьше работать с циклами внутри массивов, решил переходить на List

[anaschu]

новая реализация модели на List (бэтман бегинс)