[poli-smen]

Сообщение от Кодер

Далее пытаюсь считать эти самые объекты и добавить их в ListBox

Код:

lb_users.Items.BeginUpdate; 
       lb_users.Clear;

       memo1.Lines.Add('count='+IntToStr(friends.Count));
       SelUser:=TUser.Create;
       for i := 0 to friends.Count-1 do
           begin
           if friends.Objects[i]=nil then memo1.Lines.Add('nil');
           SelUser:=TUser(TObject(friends.Objects[i]));  
           
           memo1.Lines.Add(SelUser.fname+' '+SelUser.lname);
           memo1.Lines.Add('online='+Inttostr(SelUser.online));
                                 
           if SelUser.online = online then
              begin
                lb_users.AddItem(SelUser.fname+' '+SelUser.lname,
                       TObject(StrToInt(SelUser.uid)));
                memo1.Lines.Add('i='+Inttostr(i)+' user='+SelUser.fname+' '+SelUser.lname);
              end;
           end;
       SelUser.Free;
       lb_users.Items.EndUpdate;

При этом в LIstBox ничего не добавляется. В чем ошибка?

Видимо вот эта проверка не проходит:

Код:

if SelUser.online = online then

вот ничего не добавляется.

И ещё вопрос. Зачем нужны эти 2 строки?:

Код:

...
       SelUser:=TUser.Create;
...
       SelUser.Free;
...

Сообщение от Кодер

Как мне проверить состояние объектов?

Состояние объектов? Что это за состояние такое? Первый раз такое слышу...