Problem mit Array

[Gehstock]

bei meinem Array gibt es ein seltsames Problem
So klappt alles

Delphi-Quellcode:

Const
 Perm : Array [0..5] of Array [1..18] of Integer = (
 (17,18,15,16,13,14,11,12,09,10,07,08,05,06,03,04,01,02), //Dummy
 (17,18,15,16,13,14,11,12,09,10,07,08,05,06,03,04,01,02), ///
 (15,16,17,18,11,12,09,10,07,08,05,06,03,04,01,02,13,14), ///
 (09,10,11,12,13,14,03,04,07,08,05,06,17,18,01,02,15,16), ///
 (11,12,09,10,15,16,13,14,17,18,05,06,01,02,07,08,03,04), ///
 (11,12,09,10,15,16,13,14,17,18,05,06,01,02,07,08,03,04)); //Platzhalter
 MB : Array [0..5] of Array [0..1] of String = (
 ('XX','XX'),// Dummy
 ('8F','BE'),
 ('3C','E2'),
 ('6C','B9'),
 ('74','9A'),
 ('53','AE'));
var
 I : Integer;
 Swapnum,Permnum: String;
begin
...
 for I := 1 to 18 do
 Permnum := Permnum + Swapnum[Perm[cbModel.ItemIndex + 2,i]];
  Result :=  MB[cbModel.ItemIndex + 2,Mode]+ Swapnum + Swapnum + Permnum;

schreib ich es so kracht es

Delphi-Quellcode:

Const
 Perm : Array [1..5] of Array [1..18] of Integer = (
 (17,18,15,16,13,14,11,12,09,10,07,08,05,06,03,04,01,02), ///
 (15,16,17,18,11,12,09,10,07,08,05,06,03,04,01,02,13,14), ///
 (09,10,11,12,13,14,03,04,07,08,05,06,17,18,01,02,15,16), ///
 (11,12,09,10,15,16,13,14,17,18,05,06,01,02,07,08,03,04), ///
 (11,12,09,10,15,16,13,14,17,18,05,06,01,02,07,08,03,04)); //Platzhalter
 MB : Array [1..5] of Array [0..1] of String = (
 ('8F','BE'),
 ('3C','E2'),
 ('6C','B9'),
 ('74','9A'),
 ('53','AE'));
var
 I : Integer;
 Swapnum,Permnum: String;
begin
...
 for I := 1 to 18 do
 Permnum := Permnum + Swapnum[Perm[cbModel.ItemIndex + 1,i]];
  Result :=  MB[cbModel.ItemIndex + 1,Mode]+ Swapnum + Swapnum + Permnum;

jemand ne Idee warum denn die Obere Lösung finde ich sehr unschön

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

[TonyR]

Was kracht denn?
Stimmen die Indizes zur Laufzeit?

Seh ich das richtig, dass es dich stört "+2" anstatt "+1" zu schreiben? weil einen weiteren Unterschied konnte ich nicht erkennen

[DeddyH]

Vermutlich stören ihn die "Dummy"-Arrays.

[Gehstock]

Habs selbst rausgefunden hatte standartmäßig den ItemIndex auf -1 aber den Text von 0 in der ComboBox deswegen ist es mir nicht aufgefallen

Danke an alle

[DeddyH]

Hast Du mal die Bereichsprüfung eingeschaltet? Ich vermute, es liegt daran, dass Du irgendwo über die Array-Grenzen hinaus liest.

[p80286]

Zitat von DeddyH:

Hast Du mal die Bereichsprüfung eingeschaltet? Ich vermute, es liegt daran, dass Du irgendwo über die Array-Grenzen hinaus liest.

sollte man das nicht als Standardantwort hinterlegen?
So wie "Ist der Stecker drin?"


Gruß
K-H

[DeddyH]

Oder "Did you turn it off and on again?"