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:

[Super_Chemiker]

da hast du was übersehen...

[DeddyH]

Was heißt "geht nicht"? Immer noch eine AV oder etwas anderes?

[Fussball-Robby]

Zitat:

Zitat von Super_Chemiker

geht aber immernoch nicht...

Aha. Fehlermeldung? Oder wird das Formular auf einmal grün? Etwas detailliertere Fehlerbeschreibung bitte :wink:

[Super_Chemiker]

sorry, ist immernoch eine Zugriffsverletzung...

[DeddyH]

Und in welcher Zeile?

[Super_Chemiker]

Zitat:

Zitat von DeddyH

Und in welcher Zeile?

wie find ich das raus?

[DeddyH]

Breakpoint setzen und mit F8 durchsteppen.

[Fussball-Robby]

Zitat:

Zitat von Super_Chemiker

Zitat:

Zitat von DeddyH

Und in welcher Zeile?

wie find ich das raus?

Hättest du die 1. Antwort mal ausführlich gelesen :?

[Super_Chemiker]

das hab ich gemacht, sowohl jetzt als auch schon früher :angel: , aber so (mit F8 ) bekomm ich keine Fehlermeldung... :wall:

[DeddyH]

Bist Du die Schleife komplett durchgesteppt?

[Super_Chemiker]

ja, ich denke schon... :stupid:

[Super_Chemiker]

könnt ihr mir nicht helfen? ich könnte ja die unit anhängen wenn das hilft....

[Super_Chemiker]

ich häng jetzt mal die unit an, bitte anschauen, ob ihr einen fehler seht!!!

[jfheins]

Sei mir nicht böse, wenn ich die hier mal 2 Tutorials verlinke:

Wie stelle ich Fragen richtig?

Tutorial: Debugging in Delphi für Anfänger und Fortgeschr.

Mit der Bitte, wenigstens eines der beiden durchzulesen ;)

[Super_Chemiker]

Zitat:

Zitat von jfheins

Sei mir nicht böse, wenn ich die hier mal 2 Tutorials verlinke:

natürlich nicht! ich sehe das als nett an! :-D

Zitat:

Wie stelle ich Fragen richtig?

Tutorial: Debugging in Delphi für Anfänger und Fortgeschr.

Mit der Bitte, wenigstens eines der beiden durchzulesen ;)

okey, werd ich machen wenn ich ein bisschen zeit habe :thumb: