index wird ohne aufruf auf 0 gesetzt

[Christian Seehase]

Moin Nicodius,

benenne die Variable mal um (z.B. iIndex).
Index ist ja auch eine Eigenschaft von Objekten.

Wo ist index deklariert?
In einer Unit eines Formulares, dass immer neu erzeugt wird?

[Lannes]

Hallo,
zur weiteren Erläuterung:
"index" ist eine Direktive, eventuell deshalb.
Aus der Delphi-Hilfe:

Zitat:

Im Gegensatz zu reservierten Wörtern können Standarddirektiven neu definiert werden (was aber nicht empfehlenswert ist).

[Hansa]

Ja ! Genau so !! Variable umbenennen und sehen wo der Compiler hängen bleibt. Da liegt dann der Hu´nd begraben. Das geht wohl am schnellsten. 8) Alternativ : F7/F8

[Nicodius]

das gleiche wie vorher

Delphi-Quellcode:

var
  Form1: TForm1;

  iindex, iindex2 : Integer;

da werden die globalen definiert

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  selected := TImage.Create(Form1);
  zurueck := TBitmap.Create;
  zurueck := Canvas.Brush.Bitmap;
  iindex := 0;
  iindex2 := 0;
  Image2.Picture.Bitmap.TransparentColor := clwhite;
  actBuild := -1;
end;

heir initialisiert

[Muetze1]

Moin!

Zitat von Nicodius:

Delphi-Quellcode:

for i := 0 to Length(SelList) do
  SelList[i] := nil;

Garantiert muss das nur bis Length(SelList)-1 gehen. Da verletzt du die Arraygrenzen. Ich kann dir nochmals an's Herz legen den Overflow-Check und die Bereichsprüfung einzuschalten! Damit wäre der Fehler schon längst aufgefallen. Schon alleine da Nil 0 ist, scheint mir das verdächtig zu sein...

MfG
Muetze1

[Nicodius]

danke muetze!!!

dass wars - ja ich weiß muss das alles wieder einschalten


was mich jetz taber interessieren würde - inwiefern hat dieser Fehler einfluss auf die variable iindex?#


danke vielmals


Nico

[Christian Seehase]

Moin Nico,

vermutlich ist einfach der Speicherbereich dieser Variablen überschrieben worden, so dass sie den Wert 0 erhielt.

[Nicodius]

danke