[Kaktuz]

Код:

var
  Form1: TForm1;
  R: Integer;
  New : array [1..15] of Integer;

implementation

{$R *.dfm}

procedure TForm1.RList;
begin
Randomize;
r := Random(15);
if New[r] = 0 then
  RList // ошибка
else
  begin
  ListBox1.Items.Add(IntToStr(r));
  New[r] := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 15 do
New[i]:=1;

Edit1.Clear;
for i:=1 to 15 do
RList;
end;

Код вялый и выдает ошибку, но после нажатия "ОК" в целом получается то что нужно. Вообще задача состоит в том что есть несколько переменных в которых записаны данные и необходимо что бы эти данные считывались, но в случайном порядке и не повторялись. Возможно кто-то может посоветовать что-то более стабильное.

[angvelem]

Сразу что бросилось в глаза:

Код:

  New : array [1..15] of Integer;
...
r := Random(15);
if New[r] = 0 then
...

откровенная лажа, дальше и смотреть не стал.

[m1sclick]

Каково применение сего чуда?

Будь добр, весь код выложи. Или если это весь код, то я могу предложить более простой способ присвоения 15-ти элементам массива значения 0.

Ну а если быть серьезным то дописывай:
В var

Код:

fuck: integer;

а так-же в RList:

Код:

if fuck = 14 then exit;

и

Код:

if New[r] = 0 then
  begin
    inc(fuck);
...

Все что я смог сообразить на ночь глядя.
Да и вобще, какого лешего нужно было писать целую процедуру да и еще потом её саму с себя вызывать для того что бы выполнить одну строчку кода: r := Random(14); ах, да и поправь массивы - это же не серьезно совсем.

[Kaktuz]

Сори. Забыл пояснить одну деталь.

Код:

if New[r] = 0 then

Используется что бы вычесть из random "0" который не нужен и не будет использоваться, таким образом оставив только 1-15.
Если смотреть на код поочередно то можно заметить что в начале было записано в 15 переменных 1

Код:

for i:=1 to 15 do
New[i]:=1;

Последующим образом должна была происходить подобная схема.
Если генерированное число (тоисть номер переменной) равняется 1 значит такого числа еще не было и мы его добавим в список и запишем в переменную 0 что это чило уже используется. Ну и так далее.
Друго-го я как-то не смог придумать...

[angvelem]

Тогда так:

Код:

r := Random(15) + 1;

и 0 не будет.

[Kaktuz]

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

Тогда так:

Код:

r := Random(15) + 1;

и 0 не будет.

Добавил в свой код только данное действиие, тоесть + 1 и все стало нормально

[m1sclick]

Я вобще-то понял это все, и сути это не меняет совсем. У тебя 15 элементов заполняются нолями и ты тупо продолжаешь открывать процедуры RList пока не заполниш ими всю память. Делай как говорил я или придумывай другой способ как контролировать количество открытых RList.
Во, единственное что я забыл так это обнулять переменную fuck если New[r] <> 0, то есть:

else
begin
ListBox1.Items.Add(IntToStr(r));
New[r] := 0;
fuck:=0;
end;

Извиняюсь за такой прокол, не думает уже головушка.

И я до сих пор не понял как строка:

if New[r] = 0 then

помогает

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

вычесть из random "0" который не нужен и не будет использоваться, таким образом оставив только 1-15.

Как вариант можно вызывать random на 15 и приплюсовывать 1.