Code vereinfachen? (Arrays)

[Nonsense]

Hiho,
habe einen kleinen Eliza-Clone gebstelt.
Nun wollte ich den Code optimieren und wollte fragen, ob ihr ein paar Tipps in Sachen Arrays habt. Habe nämlich alle Antworten von Eliza in solche geschrieben.

Code:

  if NumQuest = 1 then
  begin
   RanQuest := Random(3);
   case RanQuest of
    0: AIMsg := Array02[0];
    1: AIMsg := Array02[1];
    2: AIMsg := Array02[2];
   end;
  end;

  if NumQuest = 2 then
  begin
   GetName   := EditUser.Text;
   UserName  := GetName;
   AIMsg     := 'Hallo ' + GetName + '.';
  end;

  if NumQuest = 3 then
  begin
   RanQuest := Random(3);
   case RanQuest of
    0: AIMsg := Array03[0];
    1: AIMsg := Array03[1];
    2: AIMsg := Array03[2];
   end;
  end;

 ...
etc.

Danke im Voraus!
:dance:

[Luckie]

Ich würde erstmal mit case arbeiten.

[Christian S.]

Statt

Delphi-Quellcode:

case RanQuest of
    0: AIMsg := Array02[0];
    1: AIMsg := Array02[1];
    2: AIMsg := Array02[2]; 
end;

kannst Du schreiben:

Delphi-Quellcode:

AIMsg:=Array02[RanQuest];

Genauso bei dem letzten Block!

[Nonsense]

*an-die-stirn-klatsch*
Hätt' ich auch selbst drauf kommen können!
Danke!
:coder:

@Luckie: Wo mit case arbeiten? Geht das überhaupt :?: