Array of Boolean Problem

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

[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?

[Neutral General]

Zitat von 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?

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

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