Hallo DPler,

ich bekomme eine Zugriffverletzung wenn ich in meinem Array of Boolean ein Feld setzen möchte.
Was habe ich falsch gemacht?

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyBoolArray = array[11..18] of Boolean;

.
.
.

type
  THandler = class(TObject)
  private
    FMyBoolArray: TMyBoolArray;
  {...}

.
.
.

if AValue then
 FMyBoolArray[AIndex] := TRUE;

MfG,
dnub

Hallo,

Also du musst halt sicherstellen, dass AIndex zwischen 11 und 18 liegt.

Du kannst

markieren

Delphi-Quellcode:

if AValue then
 FMyBoolArray[AIndex] := TRUE;

aber wahrscheinlich vereinfachen:

FMyBoolArray[AIndex] := AValue; Es sei denn du willst den Wert in dem Array NICHT auf false setzen, wenn AValue false ist.

Ich prüfe ob der Index sich zwischen den Arraygrenzen befindet - laut Debugger alles io, dennoch AV.

Zeig doch mal etwas mehr Code.

Ist die Instanz von THandler überhaupt "ordentlich" erstellt worden?

Und schalte mal in den Projektoptionen die Bereichsprüfung an.

Deklaration:

markieren

Delphi-Quellcode:

type
  TMyBoolArray = array[11..18] of Boolean;

type
  THandler = class(TObject)
  private
    FMyBoolArray: TMyBoolArray;
  public
    procedure SetPosition(const APos: Integer);
  end;

Hier kommt die AV:

markieren

Delphi-Quellcode:

procedure THandler.SetPosition(const APos: Integer);
begin
  if (APos>= 11) and (APos<= 18) then
    FMyBoolArray[APos] := TRUE;
end;

Aufruf:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyForm.chBoxClick(Sender: TObject);
var
  CtrlIntCap: Integer;
  MyHandler: THandler;
begin
  if Sender is TCheckBox then
  begin
    CtrlIntCap := StrToInt(TCheckBox(Sender).Caption);

    if (CtrlIntCap <= 18) and (CtrlIntCap >= 11) then
      MyHandler.SetPosition(CtrlIntCap);
  end;
end;

Zitat:

Ist die Instanz von THandler überhaupt "ordentlich" erstellt worden?

ähhmm...nö.

Es kann sein das AIndex in Wahrheit 'was anderes steht' wegen Optimierungen.
Prüf am besten mal so:

markieren

Delphi-Quellcode:

  if (AIndex < 11) or (AIndex > 18) then
    MessageDlg('AIndex fehlerhaft', mtError, [mbOK], 0);

Edit:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyForm.chBoxClick(Sender: TObject);
var
  CtrlIntCap: Integer;
  MyHandler: THandler;
begin
  if Sender is TCheckBox then
  begin
    CtrlIntCap := StrToInt(TCheckBox(Sender).Caption);

    if (CtrlIntCap <= 18) and (CtrlIntCap >= 11) then
      MyHandler.SetPosition(CtrlIntCap);
  end;
end;

MyHandler: THandler; wurde nie erzeugt, dh du greifst auf MyHandler zu welches auf nil zeigt.

Zitat:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyForm.chBoxClick(Sender: TObject);
var
  CtrlIntCap: Integer;
  MyHandler: THandler; //wo wird der instanziert?
begin
  if Sender is TCheckBox then
  begin
    CtrlIntCap := StrToInt(TCheckBox(Sender).Caption);

    if (CtrlIntCap <= 18) and (CtrlIntCap >= 11) then
      MyHandler.SetPosition(CtrlIntCap);
  end;
end;

Da fehlt ja wohl ein Konstruktor-Aufruf von MyHandler, oder?

Sagte ich es nicht?

MyHandler wurde nicht erstellt.

[edit]
zu langsam (gab aber sowieso keine RedBox, also nicht meine Schuld )

Zitat:

Wurde nie erzeugt, dh MyHandler zeigt auf nil.

Lokale Variable ... die Chance, daß die zufällig auf NIL zeigt, steht bei 1:4.294.967.296, da diese garnicht erst initialisiert werden und zufallswerte enthalten.

Zitat von DeddyH:

Zitat:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyForm.chBoxClick(Sender: TObject);
var
  CtrlIntCap: Integer;
  MyHandler: THandler; //wo wird der instanziert?
begin
  if Sender is TCheckBox then
  begin
    CtrlIntCap := StrToInt(TCheckBox(Sender).Caption);

    if (CtrlIntCap <= 18) and (CtrlIntCap >= 11) then
      MyHandler.SetPosition(CtrlIntCap);
  end;
end;

Da fehlt ja wohl ein Konstruktor-Aufruf von MyHandler, oder?

.. und ich schätze mal, dass sowohl die Variable als auch der constructor/destructor-Aufruf in das Formular gehören. Sonst macht der Code nämlich keinen Sinn.