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.
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.