Abwechselnt Funktion 1 oder 2 aufrufen

[SyntaxXx]

Ganz einfach,
ich hab ein Array mit gut 6000 indexen( Ka wie das auch immer heißen mag) erstellt, und jedes dieser "Indexe" hat einen namen.

Und die Funktion gibt einfach per zufall einen Namen aus.
Deswegen wäre es egal, wenns durch zufall funktion1 oder funktion2 nimmt.

Habs schon getestet mit 120 Konstanten "Namen", da funktioniert das ohne Probleme.

Delphi-Quellcode:

var Firstnames: Array[0..5918] of string;
function Rndfirstname : string; stdcall;
begin
randomize;
  Firstnames[0] := 'Aabel';
  Firstnames[1] := 'Aabid';
  Firstnames[2] := 'Aabo';
  Firstnames[3] := 'Aabraham';
  Firstnames[4] := 'Aadam';
  Firstnames[5] := 'Aadolf';

etc.