Array of Boolean Problem

[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