Поля класса

[xell29]

Всем доброго времени суток!

Прошу прощения, за ламерский вопрос, но у меня такая проблема:

Я описываю класс:

Type
  AllGroups=class
  public
    i:integer;
    procedure IncCount;
    {бла, бла,бла}
end;

затем реализую процедуру IncCount:
procedure AllGroups.IncCount;
Begin
  Inc(self.i);
End;

И когда эта обращение доходит до этой процедуры, появляется сообщение:
Access violation at adress bla - bla. Write of address 00000004

причем сообщение не меняется если пишу без self, при инициализации этой переменной в конструкторе - та же ошибка...

В чем может быть проблема? Подскажите плиз!

[Stilet]

Я описываю класс:

И все??? А вызываешь ты его методы как? Когда? И создан ли экземпляр класса? т.е. код в студию.

[xell29]

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

И все??? А вызываешь ты его методы как? Когда? И создан ли экземпляр класса? т.е. код в студию.

До вызова методов дело не доходит, только пытаюсь создать экземпляр класса...
Полное описание класс

Type
  AllGroups=class
  public
    i:integer;
    GroupsArcTemplates: array of GroupArcTemplate;
    constructor Create();overload;
    function GetAllNames:TStrings;
    procedure AddGroupToList(Group:GroupArcTemplate);
    procedure IncCount;
    function GetCount:integer;
end;

А вот описание всех методов и конструктора:

procedure AllGroups.IncCount;
Begin
  self.i:=self.i+1;
End;
function AllGroups.GetCount:integer;
Begin
  GetCount:=self.i;
End;


constructor AllGroups.Create();
Begin
  IncCount;
  SetLength(self.GroupsArcTemplates,GetCount);
  GroupsArcTemplates[i]:=GroupArcTemplate.Create();
End;

function AllGroups.GetAllNames:TStrings;
Var
  iterator:integer;
Begin
   For iterator:=0 to self.i-1 do
     Begin
       GetAllNames.Add(self.GroupsArcTemplates[iterator].NameGroupTemplate);
     End;
End;

Вызываю так:

Var
T:GroupArcTemplate;
G:AllGroups;
......................
Begin
...................
G.Create;                 //ошибка при этом вызове
G.AddGroupToList(T); // сюда уже не доходит
End;

[Stilet]

Ты меня видимо полностью не понял. Я спрашивал у тебя не как ты класс описал а как ты с ним работаешь, т.е. вот что-то в этом роде:

var a:AllGroups;
begin
a:=AllGroups.Create;
 a.IncCount;
a.Free;
end;

Так работает

т.е. ты его хоть правильно создаешь?

[xell29]

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

Ты меня видимо полностью не понял. Я спрашивал у тебя не как ты класс описал а как ты с ним работаешь, т.е.....

Вот так вызываю:

Var
T:GroupArcTemplate;
G:AllGroups;
......................
Begin
...................
G.Create;                 //ошибка при этом вызове
G.AddGroupToList(T); // сюда уже не доходит
End;

[Пепел Феникса]

классы создаются так

G:=AllGroups.Create

то есть в общем

<экземпляр>:=<название класса>.<конструктор с параметрами(например Create)>

[xell29]

Точно.... Спасибо огромное!!! А ведь я создавал классы.... Млин запарился... Теперь все работает!

[Stilet]

Млин запарился

Я так понимаю еще и пост мой читал невнимательно...

[xell29]

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

Я так понимаю еще и пост мой читал невнимательно...

Наверное...Просто сначала не понял что я не указал.... Запарился на элементарном....