Eine zufällige Wahl treffen...

[Kedariodakon]

Delphi-Quellcode:

Function GetFrage( Const Nummer: Cardinal ): String;
Const cFragen: Array[ 0..2 ] Of String = ( 'FRAGE 00', 'FRAGE 01', 'FRAGE 02' );
Begin
  If Nummer In [ 0..2 ] Then Result   := cFragen[ Nummer ]
                        Else Result := 'Fragen Fehler...';
End;

Dann einfach irgendwo Die Function aufrufen...


Bye