Case-Anweisung mit Variablen-Problem umgehen ?

[Seb Asti]

Hallo Forum

Ich arbeite in der Schule mit Delphi und habe mich mal an was eigenes privates rangetraut.
Das läuft auch ganz toll, nur ziemlich am Ende des Programms habe ich jetzt ein sehr nerviges Problem.

Das Programm soll das erste Zeichen des temporären Strings 'anschauen' und erkennen, an welcher Stelle es in dem durch Radiobuttons ausgeqählten Array steht. Dann soll der Ergebnis-String durch das Zeichen an der entsprechenden Stelle eines anderen Arrays ergänzt werden.
Bsp: 'Banane' - das 'B' steht an im gewählten Array an Stelle 17 und der Ergebnis-String wird um das 17. Zeichen des anderen Arrays, also z.B. 'X' ergänzt.

Code:

case tempStr2[1] of
   A_Language[RGFrom.Itemindex,1] : Result := Result + A_Language[RGInto.Itemindex,1];
   A_Language[RGFrom.Itemindex,2] : Result := Result + A_Language[RGInto.Itemindex,2];
   A_Language[RGFrom.Itemindex,3] : Result := Result + A_Language[RGInto.Itemindex,3];
   // - fürs Forum weggekürzt -
   A_Language[RGFrom.Itemindex,59] : Result := Result + A_Language[RGInto.Itemindex,59];

Wichtig:
Ich habe durch googeln schon rausgefunden, dass CASE sich nicht mit Variablen versteht und nur Konstanten haben will.
Allerdings weiß ich nicht, wie ich das hinbekommen oder umgehen sollte. Insgesamt habe ich 8 Arrays mit je 59 Stellen - das ganze in 8*59 IF umzuformen, steht also außer Frage.
Ich bin zwar kein totaler Neuling mehr, aber ich kenne trotzdem bei weitem noch nicht alle Funktionen von Delphi.

Gibt es da etwas, was mir helfen könnte

[Medium]

Ich würde hier eher mit einer Schleife dran gehen:

Delphi-Quellcode:

for k := Low(A_Language[RGFrom.Itemindex]) to High(A_Language[RGFrom.Itemindex]) do
begin
  if tempStr2[1] = A_Language[RGFrom.Itemindex, k] then Result := Result + A_Language[RGInto.Itemindex, k];
end;