Недавно добавленные исходники

•  Animation Loaders  676

•  DeLiKaTeS Tetris (Тетрис)  5 689

•  TDictionary Custom Sort  7 643

•  Fast Watermark Sources  7 335

•  3D Designer  10 538

•  Sik Screen Capture  7 856

•  Patch Maker  8 080

•  Айболит (remote control)  8 141

•  ListBox Drag & Drop  6 935

•  Доска для игры Реверси  100 123

•  Графические эффекты  8 198

•  Рисование по маске  7 600

•  Перетаскивание изображений  6 201

•  Canvas Drawing  6 565

•  Рисование Луны  6 491

•  Поворот изображения  5 670

•  Рисование стержней  4 594

•  Paint on Shape  3 291

•  Генератор кроссвордов  4 281

•  Головоломка Paletto  3 419

•  Теорема Монжа об окружностях  4 241

•  Пазл Numbrix  2 750

•  Заборы и коммивояжеры  3 656

•  Игра HIP  2 462

•  Игра Go (Го)  2 443

•  Симулятор лифта  2 856

•  Программа укладки плитки  2 293

•  Генератор лабиринта  3 014

•  Проверка числового ввода  2 514

•  HEX View  2 920

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Заполнения массива случаными неповторяющимися значениями 2



Автор: Иваненко Фёдор Григорьевич

Приведу стандартную процедуру, работает в шесть раз быстрее, не имеет ограничений, да и кода поменьше :)


procedure FillArray(var A: array of Integer);
var
  I, S, R: Integer;
begin
  for I := 0 to High(A) do
    A[I] := I;
  for i := High(A) downto 0 do
  begin
    R := Random(I);
    S := A[R];
    A[R] := A[I];
    A[I] := S;
  end;
end;








Copyright © 2004-2026 "Delphi Sources" by «SiteAnalyzer». Delphi World FAQ

Группа ВКонтакте