listview realtime daten anzeige

[Captnemo]

Das könnte man mit einem ListView.items.beginUpdate und ListView.Items.EndUpdate ja auch erreichen. Möglicherweise nicht ganz so komfortable, aber möglich wäre es.
Allerdings, wenn ich laufend neue Zeilen hinzufüge, und nach jeder hinzugefügten Zeile diese auch anzeigen will, dann komme ich um ein Neuzeichnen auch im VirtualListView nicht drumherum.
Was auch dort möglicherweise ein "flackern" verursacht.

Zitat von JnZn558:

Dann habe ich auch noch gelesen, dass virtual listview ein abhilfe schafft. aber wie lasse ich den Zähler den Inhalt von subitem zuweisen? ich habe auch versucht, der Inhalt lässt sich nicht verändern.

Aber sein Problem war ja auch, dass er den Inhalt von SubItems nicht zuweisen kann. Deshalb wäre ein bisschen Code nicht schädlich.

[Popov]

Beispiel:

Delphi-Quellcode:

uses
  Contnrs;

type
  TTest = class //Beispielklasse um zwei Werte aufzunehmen
    Num1: Integer;
    Num2: Integer;
  end;

var
  ol: TObjectList;
  i: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10; //Edit: hinzugefügt

  ol := TObjectList.Create; //Die Liste

  with ListView1 do
  begin
    ViewStyle := vsReport; //2 Spalten hinzufügen, sonst sieht man nichts <<<<<<<<<<<<<<<
    OwnerData := True; //Wichtig: damit wird ListView1 virtuell
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ol.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Test: TTest;
begin
  Test := TTest.Create; //Die Liste befüllen
  Test.Num1 := i;
  Test.Num2 := i + 1;
  ol.Add(Test);
  Inc(i);

  ListView1.Items.Count := ol.Count; //Wichtig: ListView den aktuellen Count mitteilen
  Caption := 'Count: ' +  IntToStr(ol.Count);
  //Listview1.Items.Item[Listview1.Items.Count-1].MakeVisible(False);
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  Test: TTest;
begin
  Test := TTest(ol.Items[Item.Index]); //Ein Objekt aus der Liste "holen" 
  Item.Caption := IntToStr(Test.Num1); //Hier Caption und ein SubItem anzeigen
  Item.SubItems.Add(IntToStr(Test.Num2));
end;

[JnZn558]

Zitat von Popov:

Beispiel:

Delphi-Quellcode:

uses
  Contnrs;

type
  TTest = class //Beispielklasse um zwei Werte aufzunehmen
    Num1: Integer;
    Num2: Integer;
  end;

var
  ol: TObjectList;
  i: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10; //Edit: hinzugefügt

  ol := TObjectList.Create; //Die Liste

  with ListView1 do
  begin
    ViewStyle := vsReport; //2 Spalten hinzufügen, sonst sieht man nichts <<<<<<<<<<<<<<<
    OwnerData := True; //Wichtig: damit wird ListView1 virtuell
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ol.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Test: TTest;
begin
  Test := TTest.Create; //Die Liste befüllen
  Test.Num1 := i;
  Test.Num2 := i + 1;
  ol.Add(Test);
  Inc(i);

  ListView1.Items.Count := ol.Count; //Wichtig: ListView den aktuellen Count mitteilen
  Caption := 'Count: ' +  IntToStr(ol.Count);
  //Listview1.Items.Item[Listview1.Items.Count-1].MakeVisible(False);
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  Test: TTest;
begin
  Test := TTest(ol.Items[Item.Index]); //Ein Objekt aus der Liste "holen" 
  Item.Caption := IntToStr(Test.Num1); //Hier Caption und ein SubItem anzeigen
  Item.SubItems.Add(IntToStr(Test.Num2));
end;

danke für Antworten. ich werde das gleich ausprobieren. was ich gepostet habe, war quelltext von heute morgen. wo ich das Problem hab.

[Captnemo]

Zitat von Captnemo:

Aber sein Problem war ja auch, dass er den Inhalt von SubItems nicht zuweisen kann. Deshalb wäre ein bisschen Code nicht schädlich.

@Popov: damit meinte ich ja den TE, und nicht unbedingt dich

[JnZn558]

Sorry, ich muss erst nach Hause kommen um meine Quelltext zu posten. Ich arbeite mit XE8

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    { Private declarations }
    i : Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.i := 0;
  ListView1.Items.Count := 5;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := 'Test' + IntToStr(Item.Index);
  Item.SubItems.Add('SubItem' + IntToStr(Item.Index));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc( Self.i );
  ListView1.Items.Item[ 0 ].SubItems.Strings[ 0 ] := IntToStr( Self.i );
end;

end.

[Popov]

Und was soll dabei virtuell sein?

Guck dir mal mein Beispiel an. Die Daten befinden sich in einer externen Liste. Es muss nicht unbedingt TObjectList sein, es muss nur eine externe Liste sein. In OnData (ListView1Data()) wird dann auf die Daten der Liste zugegriffen und in ListView dargestellt.

[JnZn558]

Zitat von Popov:

Und was soll dabei virtuell sein?

Guck dir mal mein Beispiel an. Die Daten befinden sich in einer externen Liste. Es muss nicht unbedingt TObjectList sein, es muss nur eine externe Liste sein. In OnData (ListView1Data()) wird dann auf die Daten der Liste zugegriffen und in ListView dargestellt.

ich habe dein Code ausprobiert, leider ist das nicht was ich wollte. ich wollte nur in einer Zeile die zweite Spalte den Zähler drin sein un der wird laufend angezeigt.

[Popov]

Delphi-Quellcode:

var
  i : Integer;
  a: array[0..4] of Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
  i := 0;
  ListView1.Items.Count := 5;
  ListView1.DoubleBuffered := True;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := 'Test ' + IntToStr(Item.Index);
  Item.SubItems.Add('SubItem ' + IntToStr(a[Item.Index]));

  //Item.Caption := 'Test' + IntToStr(Item.Index);
  //Item.SubItems.Add('SubItem' + IntToStr(Item.Index));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  k: Integer;
begin
  for k := 0 to 4 do
  begin
    Inc(i);
    a[k] := i;
  end;
  ListView1.Refresh;

  //ListView1.Items.Item[ 0 ].SubItems.Strings[ 0 ] := IntToStr( i );
end;

[JnZn558]

Zitat von Popov:

Delphi-Quellcode:

var
  i : Integer;
  a: array[0..4] of Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
  i := 0;
  ListView1.Items.Count := 5;
  ListView1.DoubleBuffered := True;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := 'Test ' + IntToStr(Item.Index);
  Item.SubItems.Add('SubItem ' + IntToStr(a[Item.Index]));

  //Item.Caption := 'Test' + IntToStr(Item.Index);
  //Item.SubItems.Add('SubItem' + IntToStr(Item.Index));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  k: Integer;
begin
  for k := 0 to 4 do
  begin
    Inc(i);
    a[k] := i;
  end;
  ListView1.Refresh;

  //ListView1.Items.Item[ 0 ].SubItems.Strings[ 0 ] := IntToStr( i );
end;

danke sehr. ist genau das richtige für mich. bist großklasse.

Zitat von Mavarik:

Bevor ich den Sourcecode einsteige...

Timer mit 10ms würde 100 Änderungen pro Sekunde bedeuten... Macht das Sinn?

der "Monitor" macht 60. Dein Auge so weniger als 25... Abgesehen davon der der Timer überhaupt nicht so oft "feuert".

Und ein ListView würde ich dafür auch nicht nehmen...

Vielleicht erzählst Du uns mal ein bisschen mehr über den Sinn der Software...

Danke für dein Hinweis. Ich habe andere Sinn für mein vorhaben. Letztendlich wird es nicht 10 ms sein.

[Mavarik]

Bevor ich den Sourcecode einsteige...

Timer mit 10ms würde 100 Änderungen pro Sekunde bedeuten... Macht das Sinn?

der "Monitor" macht 60. Dein Auge so weniger als 25... Abgesehen davon der der Timer überhaupt nicht so oft "feuert".

Und ein ListView würde ich dafür auch nicht nehmen...

Vielleicht erzählst Du uns mal ein bisschen mehr über den Sinn der Software...