Replacing duplicates in a randomly generated array

[Ether]

Originally Posted by Ether

Simple (and very fast) TP7 implementation

Add the following header:

{$APPTYPE CONSOLE}
USES Windows;

... and change "word" to "dword" (4 places), and you've got a 32-bit Delphi console app which will select 100 non-duplicate random values from a pool of one million in less than 0.004 seconds on an 8-year-old desktop PC.