index wird ohne aufruf auf 0 gesetzt

[Nicodius]

ich habe hier eine Methoe schauenundhinzufuegen()

bevor ich in die schleife " For i := 0 to index-1 do" komme ... ist der idnex schon auf 0 ... obwohl er vorher fuenf oder hoeher war - es kann nur in diesem codesegment passiert sein :




bitte kann mir wer helfen den Fehler zu finden? (ich habe schon durchgestept)

Delphi-Quellcode:

procedure SchauenUnsHinzufuegen();
var i : Integer;
    theimg : TImage;
begin
for i := 0 to Length(SelList) do
  SelList[i] := nil;
theimg := TImage.Create(Form1);
  For i := 0 to index-1 do
  begin

  theimg := TImage(Form1.FindComponent('Soldier_' + IntToStr(i)));
    if (theimg.Left >= Auswahlrec.Left) then
    if (theimg.left + theimg.width > Auswahlrec.Right) then
    if (theimg.top >= Auswahlrec.Top)
    then
    if (theimg.Top + theimg.Width > Auswahlrec.Bottom)
      then
      begin
        selList[i] := theimg;
        theimg.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+ '\Bilder\standSel.bmp');
      end;
    //Form1.caption := Form1.caption + ' + Soldier' + IntToStr(i);
  end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  z := false;
  Form1.Canvas.Refresh;
  Form1.Canvas.Draw(0,0,zurueck);
  Auswahlrec := Rect(Min(X,X), Min(Y,Y), Max(XX,XX), Max(YY, YY));
  SchauenUnsHinzufuegen();
  Form1.Repaint;
end;

danke

Mooreel

[Phistev]

Wo ist index deklariert?

[Nicodius]

globale variable, wirt mit 0 initialisiert - on bei jedem Onmousedown um 1 erhöht

[dizzy]

Delphi-Quellcode:

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

// Hiernach ist i undefiniert - wie immer bei Schleifenvariablen nach einer Schleife.
// Würdest du nachher etwas wie
  variable := i;
// scheiben, mekert der Compiler auch genau das an ;)

theimg := TImage.Create(Form1);
  For i := 0 to index-1 do
  begin

Schönen Gruss,
Fabian

[Nicodius]

index <> i ;)

Delphi-Quellcode:

  index, index2 : Integer;

[DGL-luke]

:gruebel:

aber i hat doch mit index nix zu tun?

[Nicodius]

ja sag ich doch ?


index kommt nur 2 mal vor und zwar beim initialisieren und beim raufzählen .. wies auf 0 gesetzt wird kann ich nicht nachvollziehen.

[dizzy]

:wall: Wenn man nicht gaaanz genau liest... sorry.

Ich vermute mal du hast irgendwo ein Array, und die Bereichsprüfung aus, und jagst irgendwo über die Arraygrenze hinweg, und erwischt zufällig "index". Ist vor der Deklaration von "index" evtl. sogar ein Array deklariert? Dann wäre es nämlich sehr sehr wahrscheinlich {edit: anderenfalls aber auch nicht unwahrscheinlich}.
Bereichsüberschreitungen sind immer wieder gerne für solche Effekte gut :)

[Phistev]

Sind evtl. noch andere Variablen / Properties mit dem gleichen Namen irgendwo deklariert? Ich vermute, dass hier auf einen andere Variable als gedacht zugegriffen wird.

[Hansa]

Zitat:

Zitat von Nicodius

globale variable, wirt mit 0 initialisiert - on bei jedem Onmousedown um 1 erhöht

Hier war doch ein Thread, warum "globale Variablen verteufelt werden". Genau wegen so was !! Wetten, daß in deinem OnDraw etc. irgendwo der Wert geändert wird ? Deshalb ist die Stelle, an der initialisiert wird äußerst wichtig. Und da wirst du wohl die falsche erwischt haben. 8)

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

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 :)