Zugriffsverletzung - warum?

[Super_Chemiker]

Hi, DP:
In menem Projekt bekomme ich immer wenn ich diesen Button klicke eine Zugriffsverletzung, und ich verstehe einfach nicht warum :wall: .
kann mir einer sagen was da falsch ist? wenn ihr mehr code braucht dann sagt mir was genau, ich will ja kein OS - Projekt machen :mrgreen:

Delphi-Quellcode:

procedure TForm1.FunktionClick(Sender: TObject);
var i, a: integer;
    x: string;
begin
  case funktionen.ItemIndex of
  0: begin
       a := luafile.IndexOf('function Mission_InitMerchants()');
       for i := 0 to 6 do
       begin
         a := luafile.IndexOf('function Mission_InitMerchants()');
         if handel[i].handelt then
         begin
           luafile.Insert(a+1,'   local PlayerID = '+inttostr(i));
           luafile.Insert(a+2,'   local traderId = Logic.GetStoreHouse('+inttostr(i)+')');
           if handel[i].hg1 <> 35 then
           begin
             x := Ware(handel[i].hg1);
             luafile.Insert(a+3,'AddOffer( traderId, '+inttostr(handel[i].hg1m)+', '+x+' )');
           end;
         end;
       end;
     end;
  end;
end;

function TForm1.Ware;
begin
  case index of
    // Alle möglichen Zahlen werden erkannt... für euch nicht weiter wichtig -> Platz sparen
  else
  result := '';
  end;
end;

Vielen Dank im Voraus,
Flo

[Fussball-Robby]

In welcher Zeile tritt der Fehler auf? (Mit F5 Breakpoint auf die erste Zeile der Funktion setzen und dann mit F7 Schritt für Schritt durchgehen)
Ich schätze mal nach dem ersten Überfliegen, dass die AV bei dem Zugriff auf Handel[i] auftritt, Handel, was auch immer das ist, könnte zu klein sein.
Achja, nenn uns mal die Speicheradresse, bei der der Fehler auftritt, das könnte evtl. helfen.
Gruß

[DeddyH]

Zitat:

Delphi-Quellcode:

function TForm1.Ware;

Das kann ja schonmal nicht stimmen. Und dann würde ich gerne wissen, was handel ist (ein Array einer Klasse?).

[Fussball-Robby]

[OT]

Zitat:

Zitat von DeddyH

Zitat:

Delphi-Quellcode:

function TForm1.Ware;

Das kann ja schonmal nicht stimmen.

Zitat:

Zitat von Super_Chemiker

Delphi-Quellcode:

    // Alle möglichen Zahlen werden erkannt... für euch nicht weiter wichtig -> Platz sparen

Er wollte doch Platz sparen, da kann man den Rückgabewert auch schonmal vernachlässigen :mrgreen:[/OT]

[Super_Chemiker]

ok:

Zitat:

Zitat von Fussball-Robby

Achja, nenn uns mal die Speicheradresse, bei der der Fehler auftritt, das könnte evtl. helfen.
Gruß

sorry, aber was genau ist/ wo finde ich die Speicher adresse

Zitat:

Zitat von DeddyH

Zitat:

Delphi-Quellcode:

function TForm1.Ware;

Das kann ja schonmal nicht stimmen.

warum nicht?

Zitat:

Und dann würde ich gerne wissen, was handel ist (ein Array einer Klasse?).

Delphi-Quellcode:

  Handel: Array[2..8] of THandler;

Delphi-Quellcode:

THandler = record
    Handelt: Boolean;
    Handelsgute: Integer; //ich weiß, Güter aber ü....
    Hg1: Integer;
    Hg2: Integer;
    Hg3: Integer;
    Hg4: Integer;
    HG1M: Integer;
    HG2M: Integer;
    HG3M: Integer;
    HG4M: Integer;

[DeddyH]

Dein Array geht von 2 bis 8, Deine Laufvariable von 0 bis 6. Und eine Funktion ohne Rückgabewert lässt der Compiler nicht zu.

[Fussball-Robby]

Zitat:

Zitat von Super_Chemiker

sorry, aber was genau ist/ wo finde ich die Speicher adresse

Wenn die Zugriffsverletzung auftritt, steht dort (nicht exakt): "Zugriffsverletzung bei Adresse 123456789". Wenn die Adresse 0000000 ist, heißt das, du greifst auf Speicher zu, der nicht existiert (grob gesagt), so zum Beispiel wenn dein Array zu klein ist (was ich vermute). i ist bestimmt zu irgendeinem Zeitpunkt zu groß, das kannst du ja mal mit if abfragen

Delphi-Quellcode:

if not (i in [2..8]) then 
  ShowMessage('i ist zu groß oder zu klein!');

[Edit]Quatsch, musst du nicht überprüfen. i ist auf jeden Fall zu klein, da es von 0 bis 6 geht. (nein, ich habe nicht bei Detlef abgeguckt :mrgreen: ).

[DeddyH]

Nicht zu klein, aber falsch indiziert (siehe oben) ;)

[Super_Chemiker]

na hoppla!
so gehörts wirklich:

Delphi-Quellcode:

//...
case funktionen.ItemIndex of
  0: begin
       a := luafile.IndexOf('function Mission_InitMerchants()');
       for y := 0 to 6 do
       begin
         i := y+2;
         a := luafile.IndexOf('function Mission_InitMerchants()');
         if handel[i].handelt then
         begin
           luafile.Insert(a+1,'   local PlayerID = '+inttostr(i));
           luafile.Insert(a+2,'   local traderId = Logic.GetStoreHouse('+inttostr(i)+')');
           if handel[i].hg1 <> 35 then
           begin
             x := Ware(handel[i].hg1);
             luafile.Insert(a+3,'AddOffer( traderId, '+inttostr(handel[i].hg1m)+', '+x+' )');
           end;
         end;
       end;
     end;
  end;
//...

geht aber immernoch nicht...

[himitsu]

Delphi-Quellcode:

  Handel: Array[2..8] of THandler;

Delphi-Quellcode:

for i := 0 to 6 do
...
if handel[i]

fällt dir da was auf?
0..6 <> 2..8

entweder

Delphi-Quellcode:

for i := 2 to 8 do
...
if handel[i]

oder

Delphi-Quellcode:

for i := 0 to 6 do
...
if handel[i + 2]

[edit]
hmmm, keine RedBox? :shock: