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