Array of Boolean Problem

[delphinub23]

Hallo DPler,

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

Delphi-Quellcode:

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

.
.
.

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

.
.
.

if AValue then
 FMyBoolArray[AIndex] := TRUE;

MfG,
dnub

[Neutral General]

Hallo,

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

Du kannst

Delphi-Quellcode:

if AValue then
 FMyBoolArray[AIndex] := TRUE;

aber wahrscheinlich vereinfachen:

Delphi-Quellcode:

FMyBoolArray[AIndex] := AValue;

Es sei denn du willst den Wert in dem Array NICHT auf false setzen, wenn AValue false ist.

[delphinub23]

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

[DeddyH]

Zeig doch mal etwas mehr Code.

[himitsu]

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

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

[delphinub23]

Deklaration:

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:

Delphi-Quellcode:

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

Aufruf:

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ö.

[mleyen]

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

Delphi-Quellcode:

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

Edit:

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;

Delphi-Quellcode:

MyHandler: THandler;

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

[DeddyH]

Zitat:

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?

[himitsu]

Sagte ich es nicht? :angle:

MyHandler wurde nicht erstellt.

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

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.

[Neutral General]

Zitat:

Zitat von DeddyH (Beitrag 1118580)

Zitat:

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.

[DeddyH]

Sehe ich auch so.

Delphi-Quellcode:

type
  TFormBla = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FMyHandler: THandler;
  ...

procedure TFormBla.FormCreate(Sender: TObject);
begin
  FMyHandler := THandler.Create;
end;

procedure TFormBla.FormDestroy(Sender: TObject);
begin
  FMyHandler.Free;
end;

[delphinub23]

Ich seh den Wald vor lauter Bäumen nicht. Natürlich habt ihr recht.
Gott ist mir das peinlich :duck:

Danke für eure Hilfe!

MfG,
dnub

[himitsu]

Wobei hier eigentlich auch der Compiler hätte gemeckert haben müssen ... so vonwegen "nicht initialisierte Variable" ... muß man nur mal drauf hören :angle2: