Zitat von
omata:
Warum ein konstantes Array?
Warum erst eine Array-Variable mit vielen String-Konstanten füllen, dann einen String auswählen und danach alles wieder wegschmeißen,
anstatt einer Array-Konstante?
Delphi-Quellcode:
const Firstnames: Array[0..5918] of string = (
'Aabel', 'Aabid', 'Aabo', 'Aabraham', 'Aadam', 'Aadolf',
...);
function Rndfirstname : string; stdcall;
begin
PS: Ob StringList oder Array, an den lokalen Stringkonstanten würde es nix ändern.
Also wenn unbedingt String-Konstanten, dann wäre ein CASE besser.
PSS: Randomize ruft man nur einmal im Programm auf und nicht mehrmals/immer wieder.