[DeOne]

Нужны чтобы каждый раз бралась не пустая, случайная строка из мемо, как так сделать?

[M.A.D.M.A.N.]

Random.

I II III

[DeOne]

Сообщение от M.A.D.M.A.N.

Random.

I II III

Подробней.

[M.A.D.M.A.N.]

y := Random(x)

[DeOne]

Что должно быть в y и x ?

[angvelem]

Код:

  if Memo1.Lines.Count > 0 then
    y := Random(Memo1.Lines.Count);

на выходе (y) номер случайной строки.

[DeOne]

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

Код:

  if Memo1.Lines.Count > 0 then
    y := Random(Memo1.Lines.Count);

на выходе (y) номер случайной строки.

Огромное спасибо

[M.A.D.M.A.N.]

Совсем народ охренел. Скоро будут просить "напишите бегин энд".

[angvelem]

Ну почему обязательно так? Может действительность соответствует подписи.

[DeOne]

Сообщение от M.A.D.M.A.N.

Совсем народ охренел. Скоро будут просить "напишите бегин энд".

Ох, лол.

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

Ну почему обязательно так? Может действительность соответствует подписи.

Соответствует.