Ошибка inaccessible value

[Вадим Буренков]

При работе с классами выскакивает ошибка ''inaccessible value''
Как от нее избавиться?

[XuTpbIu]

Код где "выскакивает" ошибка в студию

[Вадим Буренков]

type
        TEnemy = class
  Enemy: Tbitmap;  
  Boom: Tbitmap;  
  Xpos,Ypos:integer;
  Xspeed, Yspeed:integer;
  EnemyBorn : boolean;
  test:integer;
  Procedure CreateEnemy;
  procedure DestroyEnemy;
  procedure DrawEnemy;
end;

Обьявляю переменную:

var
Enemy1:TEnemy;

Когда пытаюсь обратится к переменной выдает ошибку

Enemy1.test:=1; {ошибка}

[Kotofff]

Перед присваиванием попробуй :

Enemy1 := TEnemy.Create;

[XuTpbIu]

Procedure CreateEnemy;
procedure DestroyEnemy;

лучше бы засунуть в конструктор и деструктор. Вам виднее кончено, но это чисто мой совет.

[Вадим Буренков]

Kotofff спасибо огромное!!!!!

[ryabis]

Столкнулся с подобной проблемой.
На форме лежит пустой TListView.
В какой-то момент времени вызывается функция:

procedure TfrCollect.setImei(id, imei, ip : string);
var
  i  : integer;
  Item : TListItem;
begin
  if lvConnections.Items.Count = 0 then
    begin
      Item := lvConnections.Items.Add;
      Item.Caption := id;
      Item.SubItems.Add(IMEI);
      Item.SubItems.Add(ip);
      exit;
    end;
  for i:= 0 to lvConnections.Items.Count - 1
  do begin
    if (lvConnections.Items[i].SubItems[0] = imei)
    and (lvConnections.Items[i].SubItems[1] = ip)
    then exit;    
  end;

   Item := lvConnections.Items.Add;
   Item.Caption := id;
   Item.SubItems.Add(IMEI);
   Item.SubItems.Add(ip);

end;

При входа в эту процедуру приложение иногда вылетает.
Если ставить брэйкпоинт то на занчении 'lvConnections.Items.Count' пишет 'Inaccessible value'.

[phomm]

Item.SubItems.Add(IMEI);

Для этого по-моему надо , чтобы были созданы колонки, например, Columns.Add (ну или в дизайнере формы), есть такое у Вас ? Потом, листвью должен быть Style = vsReport, так это ?
Бряк показывает недоступную величину не обязательно из-за проблемы, а надо ещё попробовать зайти в свойства бряка и поставить галочку "allow function calls" - тогда он будет "повнимательнее" работать.

Наличие проблемы "иногда" говорит о невыполнении каких-то скрытых условий или каких-то подводных камней. Например, косяки сборки проекта ) пересобирали ? Тут лучше иметь воспроизводимый тест-кейс, киньте либо проект архивом, либо надёргайте того, что имеет отношение к ошибке в отдельный проект (и убедитесь что бага повторяется) - и киньте сюда. Также возможно , что при сборке такого проекта Вы найдёте эту проблемку. Плюс сообщите, когда стала проявляться проблема - сразу при написании кода, или сперва всё работало тут, а потом в др. месте добавили что-то и начало сыпаться.

[ryabis]

phomm, да.
Style = vsReport
3 колонки.
Не понятно, почему при работающем приложении (то есть TListView создан) нет доступа к параметру Count?..

[phomm]

Всё просто , Count - свойство и работает через соответствующие методы, и дельфи не всегда даёт возможность вызывать эти методы при отладке (ибо побочные эффекты), о чём я и сказал - что надо поставить галку "allow function calls" - чтобы дельфи точно вызывала методы для свойства.

Ну и, негоже, товарищ, из 10 вопросов (условно) отвечать только на пару. Проверьте всё, о чём я писал и отпишите пост по всем моментам, по возможности, с прикреплением проекта.