Код:
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;
Код вялый и выдает ошибку, но после нажатия "ОК" в целом получается то что нужно. Вообще задача состоит в том что есть несколько переменных в которых записаны данные и необходимо что бы эти данные считывались, но в случайном порядке и не повторялись. Возможно кто-то может посоветовать что-то более стабильное.