Чем отличается ListBox.Count от ListBox.Items.Count

[bakanaev]

Чем отличается ListBox.Count от ListBox.Items.Count ?

[artemavd]

Тем, что второй код показывает количество строк в компоненте. А почему возник такой вопрос?

[bakanaev]

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

Тем, что второй код показывает количество строк в компоненте. А почему возник такой вопрос?

А первый что показывает?

[Прик]

Первый показывает то же самое, только если стиль листбокса lbVirtual или lbVirtualOwnerDraw. При этом элементы листбокса разработчик приложения должен создавать динамически, используя события компонента, а Items как TStrings не существует.

[volvo877]

Первый показывает то же самое, только если стиль листбокса lbVirtual или lbVirtualOwnerDraw.

Ничего похожего. Показывает Count количество элементов всегда, а вот устанавливать его можно (и нужно) только для приведенных выше двух стилей.

[astecenko]

TC могли бы и сами посмотреть

function TCustomListBox.GetCount: Integer;
begin
  if Style in [lbVirtual, lbVirtualOwnerDraw] then
    Result := FCount
  else
    Result := Items.Count;
end;


procedure TCustomListBox.SetCount(const Value: Integer);
var
  Error: Integer;
begin
  if Style in [lbVirtual, lbVirtualOwnerDraw] then
  begin
    // Limited to 32767 on Win95/98 as per Win32 SDK
    Error := SendMessage(Handle, LB_SETCOUNT, Value, 0);
    if (Error <> LB_ERR) and (Error <> LB_ERRSPACE) then
      FCount := Value
    else
      raise Exception.CreateFmt(SErrorSettingCount, [Name]);
  end
  else
    raise Exception.CreateFmt(SListBoxMustBeVirtual, [Name]);
end;