Помогите разобраться с рандомом

[Janger]

Я пишу код, пользователь вводит в Memo строки, нажимает на кнопку.
Программа, чётные строки убирает в один ListBox1, а нечётные убирает в другой ListBox2. Далее, строки в обоих ListBox-ах должны быть перемешаны (не по порядку идти).
Я написал код, вроде бы, всё более менее, НО у меня странный рандом получается, не могли бы мне с ним помочь?
Вот код на кнопке:

procedure TForm1.Button1Click(Sender: TObject);
var
  yes, no: TStringList;
  i,j: integer;
  w: string;
begin
  ListBox1.Clear;
  ListBox2.Clear;

  yes := TStringList.Create;
  no := TStringList.Create;

  for i:=0 to Memo1.Lines.Count-1 do
  begin
    if (i mod 2)=0 then
    begin
      yes.Add(Memo1.Lines[i]);
    end
    else
    begin
      no.Add(Memo1.Lines[i]);
    end;
  end;


  for i:=0 to yes.Count-1 do
  begin
    Randomize;
    j := Random(yes.Count-1);
    w := yes[j];
    ListBox1.Items.Add(w);
    yes.Delete(j);
  end;

  for i:=0 to no.Count-1 do
  begin
    Randomize;
    j := Random(no.Count-1);
    w := no[j];
    ListBox2.Items.Add(w);
    no.Delete(j);
  end;

end;

Для примера ввёл некие строки в Memo(приведу их нижу), так вот, последние строки в разных ListBox всегда одинаковые ....
111_1
000_1
111_2
000_2
111_3
000_3
111_4
000_4
111_5
000_5
111_6
000_6
111_7
000_7
111_8
000_8
111_9
000_9
111_10
000_10
p.s. фото тоже постараюсь прикрепить ... если фото не откроется, то можно пройти по ссылке (тут)

[Аватар]

j := Random(yes.Count); ---> 0<=j<=yes.Count-1

[Janger]

Так, я вроде бы догадался, что надо исправить

j := Random(yes.Count-1);

на

j := Random(yes.Count);

НО!
При любом перерасчёте, имеются такие строки, которые повторяются в разных listBox.

[Аватар]

Randomize зачем в цикл? Его нужно только раз выполнить. И можно просто в OnCreate формы

[Janger]

Сообщение от Аватар

Randomize зачем в цикл? Его нужно только раз выполнить. И можно просто в OnCreate формы

Почему то думал, что именно эта процедура генерирует новые числа

[type_Oleg]

Сообщение от Аватар

Randomize зачем в цикл? Его нужно только раз выполнить. И можно просто в OnCreate формы

Да, или вообще вот так:

initialization
 Randomize;
end.

- в самом конце модуля формы.

[min@y™]

Чот хрень какая-то получается...

Можно поиграться.

[Daemvil]

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

При любом перерасчёте, имеются такие строки, которые повторяются в разных listBox.

Делай Randomize один раз за нажатие на кнопку (вначале обработчика кнопки), плюс учти, что надо писать Random(no.Count);, т.к. он возвращает случайное число от 0 до написанного в параметре минус 1, и будет тебе счастье. Магия с неизменным элементом творится при постоянном вызове randomize.
Вот, например, код с перемешиванием индексов(В простом случае, думаю, все уже стало ясно):

var
  yes, no: TStringList;
  i,j: integer;
  w: string;
  indexes: array of integer;
  randInd,b: integer;
begin
    Randomize;
  ListBox1.Clear;
  ListBox2.Clear;

  yes := TStringList.Create;
  no := TStringList.Create;

  setlength(indexes, Memo1.Lines.Count div 2);

  for i:=0 to Memo1.Lines.Count-1 do
  begin
    if (i mod 2)=0 then
    begin
      yes.Add(Memo1.Lines[i]);
    end
    else
    begin
      no.Add(Memo1.Lines[i]);
    end;
  end;


  for i := 0 to length(indexes)-1 do //заполняем массив индексов
      indexes[i]:=i;
  for i := 0 to length(indexes)-1 do //перемешиваем массив индексов
  begin
      randInd:=random(length(indexes));
      b:=indexes[randInd];
      indexes[randInd]:=indexes[i];
      indexes[i]:=b;
  end;

  for i:=0 to yes.Count-1 do
  begin
    j := indexes[i];
    w := yes[j];
    ListBox1.Items.Add(w);
 //   yes.Delete(j); удалять элементы уже не нужно
  end;

  for i := 0 to length(indexes)-1 do //для чистоты эксперимента еще раз перемешиваем массив индексов для другого листа
  begin
      randInd:=random(length(indexes));
      b:=indexes[randInd];
      indexes[randInd]:=indexes[i];
      indexes[i]:=b;
  end;

  for i:=0 to no.Count-1 do
  begin
    j := indexes[i];
    w := no[j];
    ListBox2.Items.Add(w);
  //  no.Delete(j);
  end;
// и не забываем очищать память созданных в обработчике объектов
no.free;
yes.free; 
end;

end.

А для проверки четности красивей будет использовать функцию odd(x) (возвращает true, если нечетное)