listview вывод определенного кол-ва строк

[Решетова Алена]

Ребята, подкиньте, пожалуйста, идею. А то у меня совсем без вариантов((
Есть список listview (caption Subitems[0] Subitems[1] Subitems[2])
По нажатию кнопки мне нужно вывести на экран только 10 строк, а по повторному нажатию вернуть все на место. Если строк меньше 10, то выводить все. Это типо Топ 10 песен.
Вот только не знаю как реализовать....

[Аватар]

Я бы копал в сторону виртуальности ListView. См. свойство OwnerData и справочку по нему

[Решетова Алена]

Спасибки, посмотрю)

[Решетова Алена]

Ох... барахтаюсь, барахтаюсь... Никак не могу понять.. почитала я про ownerdata. попыталась применить. да ничего не вышло. подсобите, кто чем может) точно ownerdata нужен в моем случае? если да, то напишите пожалуйста пример, как он действует...

[Аватар]

точно ownerdata нужен в моем случае?

Это один из вариантов, как по мне самый элегантный. Можно листвью в зависимости от режима отображения по-новой формировать. Можно держать 2 листвью, один видимый, второй невидимый и менять видимость в зависимости от режима (это слишком дубово)

[Решетова Алена]

Хехе)))

Можно держать 2 листвью, один видимый, второй невидимый и менять видимость в зависимости от режима

Это я хорошо понимаю) И легко будет) Но на самом деле кошмарно)
Но элегантно то, конечно, лучше же) Но я без понятия как...

[maloun]

не знаю чем listview отличается от treeview, по этому просто напишу как я работал с tree view

unit uOptionForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls,
  uAbstractFrame;

type
  TFrameClass = class of TAbstractFrame;

  TOptionForm = class(TForm)
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Panel5: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel7: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure TreeView1CreateNodeClass(Sender: TCustomTreeView;
      var NodeClass: TTreeNodeClass);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Frame:TAbstractFrame;
    procedure ChangeFrame(FrameClass:TFrameClass);
  end;

  TOptionNode = class(TTreeNode)
  public
    FrameClass:TFrameClass;
    function Add(const Name: String=''; const FrameClass:TFrameClass=nil)
        : TOptionNode;
    function AddChild(const Name: String=''; const FrameClass:TFrameClass=nil)
        : TOptionNode;
  end;

var
  OptionForm:TOptionForm;

implementation

uses
  uOptions,
  uOptionSearchFrame;

{$R *.dfm}

{ TOptionNode }

function TOptionNode.Add(const Name: String; const FrameClass: TFrameClass)
  : TOptionNode;
begin
  Result:=OptionForm.TreeView1.Items.Add(nil,Name) as TOptionNode;
  Result.FrameClass:=FrameClass;
end;

function TOptionNode.AddChild(const Name: String; const FrameClass: TFrameClass)
  : TOptionNode;
begin
  Result:=OptionForm.TreeView1.Items.AddChild(Self,Name) as TOptionNode;
  Result.FrameClass:=FrameClass;
end;

{ TOptionForm }

procedure TOptionForm.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TOptionForm.Button2Click(Sender: TObject);
begin
  if Frame<>nil then
  TAbstractFrame(Frame).SetOptions;
  Close;
end;

procedure TOptionForm.ChangeFrame(FrameClass: TFrameClass);
begin
  if Frame<>nil then Frame.Destroy;
  Frame:=FrameClass.Create(OptionForm.Panel1);
  Frame.Parent:=OptionForm.Panel1;
  TAbstractFrame(Frame).GetOptions;
end;

procedure TOptionForm.FormCreate(Sender: TObject);
var
  node:TOptionNode;
begin
  Options:=TOptions.Create;
  node:=TOptionNode.Create(nil);
  node.Add('Search',TOptionSearchFrame); //.AddChild('Search2').AddChild('Search2');
end;

procedure TOptionForm.FormShow(Sender: TObject);
begin
  if Frame<>nil then TAbstractFrame(Frame).GetOptions;
end;

procedure TOptionForm.TreeView1CreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
begin
  NodeClass:=TOptionNode;
end;

procedure TOptionForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  FrameClass:TFrameClass;
begin
  FrameClass:=TOptionNode(Node).FrameClass;
  if FrameClass<>nil then ChangeFrame(FrameClass);
end;

end.

[Решетова Алена]

Спасибо) попробую разобраться в вашем коде, может поможет)

[maloun]

Сообщение от Решетова Алена

Спасибо) попробую разобраться в вашем коде, может поможет)

ну я имел введу заменить ListView на tree view, но вот щас че-то сам засомневался, вообще идеологически не понял вопроса, если в listview можно программно записывать и с читывать информацию, то проблем быть не должно
1. создаем базу для хранения информации
2. пишем из неё в listview
3. проводим работу с данными из базы и перезаписываем их в listview
4. при опр. условиях изменяем данные в базе и перезаписываем её в listview

на каком из этапов, что лажанулось?

[Решетова Алена]

нее, у меня базы нет, мне бы что попроще. не стоит так заморачиваться. это просто лаба за 3-ий курс. (при том что меня туда кидануло со 2-ого 2 недели назад. группа моя распалась.. не суть) у меня просто список в файл сохраняется, потом из файла открывается. и то там малость с глюками. не суть важно. есть проигрыватель на форме1. есть список песен на форме2 и есть этот самый листвью, который содержит строки с названиями песни и оценками (типо чарт) на форме3. и там же есть кнопка топ 10. и вот по нажатию этой кнопки, листвью должен отобразить 10 песен с наибольшей средней оценкой. сортировка у меня есть. а вот как отобразить только 10 строк я не понимаю.