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


  index, index2 : Integer;

[DGL-luke]

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]

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