Ошибка при присваивании

[NeiL]

Помогите разобрать почему возникает ошибка при присваивании переменной класса (F: Boolean) какого-либо значения (Project Test.exe raised exception class EAccessViolation with message 'Access violation at address 004FD000 in module 'Test.exe').

Вот код:

unit NieL_Tree;

interface

uses
  SysUtils, Classes, anvil_Nodes, anvil_Objs, StdCtrls;

type
  TNieL_Tree = class(TObject)
  private
    B: Boolean;
  public  
    procedure LLastConf(
      FileName: String; Ctrl: Tanvil_TreeView);
  end;

implementation

{ TNieL_Tree }

procedure TNieL_Tree.LLastConf(FileName: String; Ctrl: Tanvil_TreeView);
var
  L: TIntegerList;
  F: TFileStream;
  Cur: TTreeItem;
  i: Integer;
begin
  B := True { ОШИБКА ПОЯВЛЯЕТСЯ ЗДЕСЬ }
  if FileExists(FileName) then
  begin
    F := TFileStream.Create(FileName, fmOpenRead);
    try
      if F.Size > 0 then
      begin
        L := TIntegerList.Create;
        try
          L.Read(F);
          Cur := Ctrl.Items[0];
          repeat
            Cur := Cur.Next;
            for i := 0 to L.Count - 1 do
              if Cur.Tag = L[i] then
              begin
                Cur.CheckState := cbChecked;
                if Cur.CheckState <> Cur.Parent.CheckState then
                  ClickItem(Ctrl, Cur);
              end;
          until
            Cur = Ctrl.Items.GetLast;
        finally
          L.Free;
        end;
      end else
        DefaultItemChecked(
          Ctrl, cbChecked);
    finally
      F.Free;
    end;
  end else
    DefaultItemChecked(
      Ctrl, cbChecked); 
end;

[mihali4]

type
TNieL_Tree = class(TObject)
private
B: Boolean;
public
procedure LLastConf(
FileName: String; Ctrl: Tanvil_TreeView);
end;

implementation

переделываем:

type
TNieL_Tree = class(TObject)
private

public
procedure LLastConf(
FileName: String; Ctrl: Tanvil_TreeView);
end;

var B: Boolean;

implementation

[NeiL]

Фишка том, что переменная должна быть объявлены внутри именно этого класа и варианты перенести ее куда-либо не рассматриваются.

[B_N]

Сообщение от NeiL

Помогите разобрать почему возникает ошибка при присваивании переменной класса (F: Boolean) какого-либо значения (Project Test.exe raised exception class EAccessViolation with message 'Access violation at address 004FD000 in module 'Test.exe').
.........................
begin
B := True { ОШИБКА ПОЯВЛЯЕТСЯ ЗДЕСЬ }

То, что access violation появляется на первом же обращении к члену класса заставляет предположить, что под объект не выделена/неправильно выделена память.

[mihali4]

Однако вы оригинал, батенька!
Класс-то вы объявили. А кто будет создавать экземпляр класса?
А как обращаются к свойству класса, вы подзабыли?
Вот примерчик:

var tn: TNieL_Tree;
begin
tn:=TNieL_Tree.Create;
tn.b:=True;
tn.Free;
end;

[NeiL]

Сообщение от mihali4

Однако вы оригинал, батенька!
Класс-то вы объявили. А кто будет создавать экземпляр класса?
А как обращаются к свойству класса, вы подзабыли?
Вот примерчик:

var tn: TNieL_Tree;
begin
tn:=TNieL_Tree.Create;
tn.b:=True;
tn.Free;
end;

Большое спасибо. Че-то голова под вечер совсем не варит.