Problem mit Array

[mleyen]

Delphi-Quellcode:

  if cbModel.ItemIndex < 0 then
    Exit;
  for I := 1 to 18 do
    Permnum := Permnum + Swapnum[Perm[cbModel.ItemIndex,i]];
  Result := MB[cbModel.ItemIndex,Mode]+ Swapnum + Swapnum + Permnum;