Private symbol declared but never used / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Private symbol declared but never used

41 сообщений из 41, показаны все 2 страниц

все

Private symbol declared but never used

#39773807

aford

Гость

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.

type
  TListener = record
    FName: string;
    FStatus: string;
    FGroupName: string;
  end;

  TListeners = class(TObject)
  private
    FCount: Integer;
    FListeners: array of TListener;
    procedure Add(NewListener: TListener);
    function Get(Index:Integer): TListener;
    procedure Put(Index:Integer; NewListener: TListener); // Пока не используется
    property Listener[Index: Integer]: TListener read Get write Put; default;
  public
    constructor Create;
    Destructor Destroy; override;
  end;

При компилляции выдает предупреждение
автор[dcc32 Hint] Unit1.pas(23): H2219 Private symbol 'Listener' declared but never used
Хотя использование (хотя и неявное, ну для этого и стоит default в описании свойства) в программе есть:

Код: pascal

1.
2.
3.

...
showmessage(Listeners[95000].FName);
...

Как так? Как избавиться от сообщения компиллятора? Или неправильно что-то в классе?
Спасибо :)

...

Рейтинг:

0 / 0

14.02.2019, 13:06

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773811

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

afordХотя использование (хотя и неявное, ну для этого и стоит default в описании свойства) в
программе есть

Почувствуй разницу между Listener и Listeners.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

14.02.2019, 13:12

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773822

aford

Гость

Dimitry Sibiryakov, я могу заменить Listener на qqq - результат будет тем же.

...

Рейтинг:

0 / 0

14.02.2019, 13:32

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773830

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

У вас Listener в PRIVATE секции и к нему из кода самого TListeners обращений нет.

...

Рейтинг:

0 / 0

14.02.2019, 13:40

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773873

aford

Гость

DimaBr, ну как же это нет, а вот это?

Код: pascal

showmessage(Listeners[95000].FName);

Это равнозначно записи вида (т.к. прописано default, см. векторные свойства)

Код: pascal

showmessage(Listeners.Listener[95000].FName);

Так что все используется...
Вот подробнее:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

procedure TForm1.Btn1Click(Sender: TObject);
var
  Listener: TListener;
  i: Integer;
begin
  Listeners:= TListeners.Create;
  for i:= 0 to 100000 do
  begin
    Listener.FName:= 'ФИО ' + IntToStr(i);
    Listener.FStatus:= 'Статус ' + IntToStr(i);
    Listener.FGroupName:= 'Группа ' + IntToStr(i);
    Listeners.Add(Listener);
  end;
  showmessage(Listeners[95000].FName);
  Listeners.Destroy;
end;

...

Рейтинг:

0 / 0

14.02.2019, 14:37

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773874

aford

Гость

Кстати, с записью авторListeners.Listener[95000].FName проблем нет, а если уберу Listener - все работает, но компиллятор выдает предупреждение...

...

Рейтинг:

0 / 0

14.02.2019, 14:39

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773876

aford

Гость

Переместил определение свойства в public - предупреждение пропало. Но все равно не понятно почему так...

...

Рейтинг:

0 / 0

14.02.2019, 14:41

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773881

asutp2

Участник

Откуда: Тюмень

Сообщения: 862

Рейтинг: 0 / 0

aford,

ты вообще читаешь, что тебе народ пишет?))))))))))

...

Рейтинг:

0 / 0

14.02.2019, 14:50

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773886

Dimitry Sibiryakov

Участник

Сообщения: 54 521

Рейтинг: 0 / 0

afordЭто равнозначно

Нет, совсем не равнозначно. Listeners у тебя массив, а не свойство.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

14.02.2019, 14:54

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773890

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

afordDimaBr, ну как же это нет, а вот это?

Код: pascal

showmessage(Listeners[95000].FName);

Это равнозначно записи вида (т.к. прописано default, см. векторные свойства)

Код: pascal

showmessage(Listeners.Listener[95000].FName);

Так что все используется...
Вот подробнее:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

procedure TForm1.Btn1Click(Sender: TObject);
var
  Listener: TListener;
  i: Integer;
begin
  Listeners:= TListeners.Create;
  for i:= 0 to 100000 do
  begin
    Listener.FName:= 'ФИО ' + IntToStr(i);
    Listener.FStatus:= 'Статус ' + IntToStr(i);
    Listener.FGroupName:= 'Группа ' + IntToStr(i);
    Listeners.Add(Listener);
  end;
  showmessage(Listeners[95000].FName);
  Listeners.Destroy;
end;

свойство Listeners не используется в теле TListeners и находится в ПРИВАТ секции.
То что вы используете его ХАКЕРСКИМ способом в том же модуле в другом классе, не говорит о том что делаете правильно.
Перенесите TListener в другой модуль и попробуйте достучаться к Listeners из метода формы

...

Рейтинг:

0 / 0

14.02.2019, 15:01

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773892

RWolf

Участник

Откуда: Казань

Сообщения: 427

Рейтинг: 0 / 0

Dimitry SibiryakovafordЭто равнозначно

Нет, совсем не равнозначно. Listeners у тебя массив, а не свойство.

Таки свойство.

Код: pascal

1.
2.
3.
4.
5.
6.
7.

Unit1.pas.49: showmessage(Listeners[95000].FName);
004AEB60 8D4DF4           lea ecx,[ebp-$0c]
004AEB63 BA18730100       mov edx,$00017318
004AEB68 A134B84B00       mov eax,[Listeners]
004AEB6D E87A000000       call TListeners.Get
004AEB72 8B45F4           mov eax,[ebp-$0c]
004AEB75 E8B64FFDFF       call ShowMessage

...

Рейтинг:

0 / 0

14.02.2019, 15:04

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773897

aford

Гость

Listeners - это вообще-то переменная объекта TListeners или объект (как правильно, или переменная на объект, суть ясна в общем).
Listener - это свойство, которое пишет и читает поле FListener, которое в свою очередь является массивов записей TListener типа record
Запутал вас и себя)))

...

Рейтинг:

0 / 0

14.02.2019, 15:11

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773898

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

aford,

это явный баг Delphi. Private член класса не должен быть доступен.
Если же private свойство объявлено default, компилятор должен либо выдать error, либо не выдавать такого warning.

Ну а конкретно тебе - перенеси свойство из private в public, вот и всё решение "проблемы".

...

Рейтинг:

0 / 0

14.02.2019, 15:16

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773900

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

DimaBrТо что вы используете его ХАКЕРСКИМ способом в том же модуле в другом классе, не говорит о том что делаете правильно.
Перенесите TListener в другой модуль и попробуйте достучаться к Listeners из метода формы
Все равно доступен. Это баг.

...

Рейтинг:

0 / 0

14.02.2019, 15:22

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773901

aford

Гость

Фэйтл Эра, я так уже сделал еще после 2-го сообщения в ветке)
авторэто явный баг Delphi. Private член класса не должен быть доступен.

Почему, в этом же модуле должен быть доступен, или я не дочитался принципов ООП, но спорить тут не стану.

...

Рейтинг:

0 / 0

14.02.2019, 15:23

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773903

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

14.02.2019 15:16, Фэйтл Эра пишет:
> это явный баг Delphi. Private член класса не должен быть доступен.

иди азбуку учи.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

14.02.2019, 15:25

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773905

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

afordПочему, в этом же модуле должен быть доступен, или я не дочитался принципов ООП, но спорить тут не стану.
В рамках модуля все доступно. В нарушение всех принципов ООП. Дельфийская тупость, но позволяющая обойти другую топость с запретом циклических ссылок модулей друг на друга.
---
Но тут явный баг Delphi: private свойство доступно, если оно default. Как минимум, в D2007.

...

Рейтинг:

0 / 0

14.02.2019, 15:27

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773909

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

14.02.2019 15:27, Фэйтл Эра пишет:
> Дельфийская тупость, но позволяющая обойти другую топость

аклинизмы проникли в мозг...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

14.02.2019, 15:30

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773910

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Фэйтл ЭраВсе равно доступен. Это баг.

Это не баг. В справке сказано что в классе может быть лишь одно свойство по умолчанию, и доступ к нему происходит без указания имени свойства.
Про расположение свойства в секциях ни слова

If a class has a default property, you can access that property with the abbreviation object[index], which is equivalent to object.property[index]. For example, given the declaration above, StringArray.Strings[7] can be abbreviated to StringArray[7]. A class can have only one default property with a given signature (array parameter list), but it is possible to overload the default property. Changing or hiding the default property in descendent classes may lead to unexpected behavior, since the compiler always binds to properties statically.

...

Рейтинг:

0 / 0

14.02.2019, 15:31

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773911

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

DimaBr,

не согласен. А если ты и прав, то, значит, баг в том, что ворнинг генерируется.

...

Рейтинг:

0 / 0

14.02.2019, 15:33

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773913

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

14.02.2019 15:33, Фэйтл Эра пишет:
> не согласен.

в спортлото пиши, кловун.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

14.02.2019, 15:36

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773915

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

Фэйтл Эразначит, баг в том, что ворнинг генерируется
Это действительно баг, тут ворнинга быть не должно. А вот видимость приватных членов в рамках модуля не баг. Если хочешь строгой приватности используй strict private.

...

Рейтинг:

0 / 0

14.02.2019, 15:36

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773918

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Даже объявление в другом модуле даёт доступ к privat-default свойству

...

Рейтинг:

0 / 0

14.02.2019, 15:40

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773920

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

DimaBrДаже объявление в другом модуле даёт доступ к privat-default свойству
Ох какой лютый жучара

...

Рейтинг:

0 / 0

14.02.2019, 15:45

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773924

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

топикстартеру, либо избавляться от дефолтного свойства, либо его декларацию заключить между дируктивами {$hints off}property...{$hints on} (если не напрягает вылезшая неожиданность)

...

Рейтинг:

0 / 0

14.02.2019, 15:49

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773927

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

Kazantsev Alexeyтут ворнинга быть не должно
Его и нет, есть хинт, да :)

...

Рейтинг:

0 / 0

14.02.2019, 15:53

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773928

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

Либо обратиться к свойству в методе свойства

...

Рейтинг:

0 / 0

14.02.2019, 15:54

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773941

aford

Гость

автортопикстартеру, либо избавляться от дефолтного свойства, либо его декларацию заключить между дируктивами {$hints off}property...{$hints on} (если не напрягает вылезшая неожиданность)

Kazantsev Alexey, так я уже, это, в паблик переместил и варнинга нет)

...

Рейтинг:

0 / 0

14.02.2019, 16:22

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773992

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

Kazantsev AlexeyKazantsev Alexeyтут ворнинга быть не должно
Его и нет, есть хинт, да :)
Текст его не соответствует действительности, в любом случае.

...

Рейтинг:

0 / 0

14.02.2019, 17:52

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39773997

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

DimaBrДаже объявление в другом модуле даёт доступ к privat-default свойству

Ну, я ж это и писал: 21809560

...

Рейтинг:

0 / 0

14.02.2019, 17:57

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774006

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

Kazantsev AlexeyЕсли хочешь строгой приватности используй strict private.
Deafaul свойство и доступно, даже когда strict... :)

...

Рейтинг:

0 / 0

14.02.2019, 18:09

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774007

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

Фэйтл ЭраТекст его не соответствует действительности, в любом случае.
Ну да, этот хинт баг.

...

Рейтинг:

0 / 0

14.02.2019, 18:11

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774010

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

Фэйтл ЭраKazantsev AlexeyЕсли хочешь строгой приватности используй strict private.
Deafaul свойство и доступно, даже когда strict... :)
Да я тоже проверил. Межмодульная доступность это баг, что для strict private, что для обычного private.

...

Рейтинг:

0 / 0

14.02.2019, 18:13

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774149

Vlad F

Участник

Сообщения: 1 502

Рейтинг: 0 / 0

Kazantsev AlexeyDimaBrДаже объявление в другом модуле даёт доступ к privat-default свойству
Ох какой лютый жучара
У меня совсем простой вопрос, - зарегистрировал таки хоть кто-нибудь ужо?

...

Рейтинг:

0 / 0

14.02.2019, 22:21

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774155

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

Vlad FKazantsev Alexeyпропущено...

Ох какой лютый жучара

У меня совсем простой вопрос, - зарегистрировал таки хоть кто-нибудь ужо?
Давай ты.

...

Рейтинг:

0 / 0

14.02.2019, 22:53

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774265

Василий 2

Участник

Сообщения: 1 021

Рейтинг: 0 / 0

Не вижу тут бага. Само свойство не видно, значит, все верно.

...

Рейтинг:

0 / 0

15.02.2019, 10:31

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774694

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Vlad F- зарегистрировал таки хоть кто-нибудь ужо?Если, что, то в Rio подтверждается. С хинтом и доступом через strict private

...

Рейтинг:

0 / 0

15.02.2019, 17:17

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774737

aford

Гость

Так что в итоге, я прав был или нет? 1-е ответы до сих пор понять не могу.
Listeners - объект классаTListeners
Listener - свойство класса TListeners, которое пишет и читает поле FListener, которое является массивом записей TListener типа record.
Если в методе есть директива default - это умолчание свойства перечисляемого типа и может быть использовано только 1 раз, не путать с default для полей.
Методы и поля, которые объявлены в секции private могут быть использованы только в текущем модуле, где объявлен класс. Если нужно использовать в других - объявляем их в public.
Все правильно?

...

Рейтинг:

0 / 0

15.02.2019, 19:00

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774754

Kazantsev Alexey

Участник

Сообщения: 5 365

Рейтинг: 0 / 0

afordЕсли в методе есть директива default - это умолчание свойства перечисляемого типа и может быть использовано только 1 раз, не путать с default для полей.
https://stackoverflow.com/questions/10796417/how-to-implement-indexed-default-property

В остальном всё верно.

...

Рейтинг:

0 / 0

15.02.2019, 19:38

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774759

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

afordМетоды и поля, которые объявлены в секции private могут быть использованы только в текущем модуле, где объявлен класс. Если нужно использовать в других - объявляем их в public.
Все правильно?
Да, все правильно. Ну, можно понудить.

1. Как показали эксперименты, всегда доступно default - свойство. :)

2. И в рамках модуля private тоже недоступны, если они strict private .

3. И есть protected . Это тоже доступны всем в том же модуле. А за пределами модуля тоже видны, но лишь в классах - наследниках.
Но если strict protected - то и в модуле доступны лишь в наследниках.

...

Рейтинг:

0 / 0

15.02.2019, 19:59

| Ответить | Цитировать | Написать

Private symbol declared but never used

#39774762

Фэйтл Эра

Участник

Сообщения: 631

Рейтинг: 0 / 0

_Vasilisk_Vlad F- зарегистрировал таки хоть кто-нибудь ужо?Если, что, то в Rio подтверждается. С хинтом и доступом через strict private
Любопытства ради проверил в Lazarus 2.0 x64 (от 3 февраля 2019) - все то же самое.

...

Рейтинг:

0 / 0

15.02.2019, 20:19

| Ответить | Цитировать | Написать

41 сообщений из 41, показаны все 2 страниц

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Private symbol declared but never used

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=Slavko82&author_mode=last_topics&do_search=1]:	0ms
get settings:	8ms
get forum list:	12ms
get settings:	9ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	163ms
get topic data:	10ms
get forum data:	2ms
get page messages:	92ms
get tp. blocked users:	1ms
others:	1223ms

total:	1543ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы