TObjectList. Вопрос об изменении параметров.

[Rin]

Здравствуйте. форумчане. Вопрос такой: Почему при создании нового объекта свойство Name запоминается, а свойство Tag нет. То есть:

// Переопределяем некоторые св-ва TObjectList
type
  QueryList = class(TObjectList)
  private
    function GetItems(Index: Integer): TADOQuery;
    procedure SetItems(Index: Integer; const Value: TADOQuery);
  public
    property Items[Index: Integer]: TADOQuery read GetItems write SetItems; default;
  end;

var   arr_query:QueryList;
       i_query:integer;

implementation
.....
function QueryList.GetItems(Index: Integer): TADOQuery;
begin
  Result := TADOQuery(inherited GetItem(Index));
end;

procedure QueryList.SetItems(Index: Integer; const Value: TADOQuery);
begin
  inherited SetItem(Index, Value);
end;
........

Procedure foo_1(My_socket:TCustomSocket); // Свойство Name запомнится, и потом можно будет найти
// именно этот Query
var Query:TADOQuery;
begin
 Query:=TADOQuery.Create(nil);
  arr_query.Add(Query);
  arr_query[i_query-1].Name:='Q'+IntToStr(My_socket.Handle);
  arr_query[i_query-1].Connection:=ADOConnection1;
end;

Procedure foo_2(My_socket:TCustomSocket);// Свойство Tag не запомнится, и найти
// именно этот Query не удастся
var Query:TADOQuery;
begin
 Query:=TADOQuery.Create(nil);
  arr_query.Add(Query);
  arr_query[i_query-1].Tag:=My_socket.Handle;
  arr_query[i_query-1].Connection:=ADOConnection1;
end;

Из-за чего свойство Tag пропадает? Такое чувство, что спецом для Tag нужно выделять память. Но в таком случае каким образом?
Наставьте на путь истинный ))).
Спасибо за внимание.

[Человек_Борща]

Нет ни конструктора, ни деструктора класса.

[Rin]

Конструктор и деструктор остаются неизменными. Если Вы про инициализацию и очистку памяти, то она есть:

procedure TForm1.FormCreate(Sender: TObject);
begin
  arr_query := QueryList.Create(true);
  i_query:=1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
 for i:=0 to arr_query.Count-1 do arr_query.delete(i);
 arr_query.Free;
end;

[phomm]

А ищите-то как ? Через TForm.Components[] или TForm.Controls[] ?

[Человек_Борща]

Rin я про класс. без своего конструктора и деструтора, вы ничего своего не создаёте.

[Rin]

А ищите-то как ? Через TForm.Components[] или TForm.Controls[] ?

Зачем так сложно)))

 for i:=0 to arr_query.Count-1 do if arr_query[i].Name='То, что надо!' then 
ShowMessage('Чувак, то что надо! =)');

Rin я про класс. без своего конструктора и деструтора, вы ничего своего не создаёте.

Если Вы хотите сказать, что без своего конструктора и своего деструктора в arr_query не будет ни одного элемента, то Вы ошибаетесь. Проверено. 1 сервер, открываю 3 клиента, подключаюсь. Сервер открыт в режиме трассировки. Если свойство Name юзаю при сождании, то все корректно (то есть каждый элемент query присоединен к определенному пользователю), но если юзаю свойство Tag, то все в трам-тарары идет.

По факту мне просто интересно, почему так? Проблемы то нет, я юзаю свойство Name, но любопытство распирает.

[Аватар]

С чего не запоминается? Все свойства TADOQuery 100% должны запоминаться. И ни какой памяти не нужно выделять, TADOQuery сам позабодится

[Rin]

С чего не запоминается? Все свойства TADOQuery 100% должны запоминаться. И ни какой памяти не нужно выделять, TADOQuery сам позабодится

Я б и сам рад так думать, но увы. Вы сами попробуйте наваять пару: клиент-сервер на TclientSocket TServerSocket и на ServerSocketRead выполнять предложенный код. Все увидите.

Вообще думается ( опять же, лишь подозрение) , что нужно выделять память для чего-то, чтобы и в Tag все запоминалось. Возможно, это как с Image. Если написать просто TImage.Create, то при попытке занести туда ручками картинку мы обломимся. Сначала нужно будует написать TImage.Picture.Bitmap.Create, а лишь потом заносить на bitmap пикчу.
Но для чего нужно выделять память? Вопрос остается открытым.

[ReportCube]

Значит
1. Либо на момент присвоения переменная i_query не соответствует последнему добавленному значению в списке. Очень похоже, что она глобальная и вы её просто неверно используете.
2. Либо My_socket.Handle на момент присвоения в Tag равен нулю.
Других вариантов просто нет

[Rin]

ReportCube, я бы не задал этот вопрос, если бы не проходил трассировкой по коду. И i_query, и My_socket.Handle верны, и при создании нового элемента arr_query все присваивается замечательно. Но, если пройтись позже циклом от 0 до arr_query.Count -1 , то я наблюдаю замечательную вещь: при присвоении Tag был 60798, а при проверке в цикле любое другое число, но тлолько не 60798. А, и кстати, юзаю Delphi 7. Может в версиях поновее исправили косяк.