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!
