Quote:
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.