Case-Anweisung mit Variablen-Problem umgehen ?

[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;