Delphi verlernt die Mathematik !!!???

[Daniel]

Hier ist nichts Offensichtliches zu erkennen.
Übersetze Deinen Code mal mit aktivierter Bereichs- und Überlaufprüfung. Eventuell fuddelst Du versehentlich im Speicher herum und Deine geänderte Variable ist ein Kollateralschaden.

[markus5766h]

@ Daniel : danke, das war's

Code:

e := 0;
  ShowMessage(IntToStr(NumBtn)); // <-------- korrekt
  for i := 3 to NumBtn do
    begin
      if Auto_Start[i] then
        begin
          Inc(e, 1);
          StartArray[e] := i;
        end;
    end;
  ShowMessage(IntToStr(NumBtn)); // <-----------fehlerhaft

der Fehler lag in StartArray[e] --> Bereich
"Range Checking" war ausgeschaltet, dachte, das wäre aktiviert gewesen

[stahli]

Ja, das sollte man annehmen.
Als Standardeinstellung wäre das sinnvoll - gerade für Anfänger. Wer es dann ausschalten will kann das ja jederzeit tun.

[mm1256]

Zitat von stahli:

.... Wer es dann ausschalten will kann das ja jederzeit tun.

Delphi-Quellcode:

{$IFDEF DEBUG}
  {$Q+,R+}
  {$DEBUGINFO      ON}
  {$LOCALSYMBOLS   ON}
  {$REFERENCEINFO  ON}
  {$DEFINITIONINFO ON}
  {$ASSERTIONS     ON}
{$ELSE}
  {$Q-,R-}
  {$DEBUGINFO      OFF}
  {$LOCALSYMBOLS   OFF}
  {$REFERENCEINFO  OFF}
  {$DEFINITIONINFO OFF}
  {$ASSERTIONS     OFF}
{$ENDIF DEBUG}

...oder so ähnlich. Und das als Bestandteil einer Include-Datei bei allen Units, und schon ist der Kessel geflickt. Dann muss man sich um nichts mehr manuell kümmern.