Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Timer für ListBox (https://www.delphipraxis.net/194173-timer-fuer-listbox.html)

lucy 25. Okt 2017 08:23

Timer für ListBox
 
Hallo,

habe eine Listbox, die unregelmäßig Datensätze empfängt.
Jeder Datensatz sollte sich genau 5 min. in der Listbox aufhalten, bevor dieser weiter kopiert wird.

Wie könnte man so etwas umsetzen?

mkinzler 25. Okt 2017 08:24

AW: Timer für ListBox
 
Von wo empfängt die Listbox die Daten? Ich würde dort ansetzen.

bnreimer42 25. Okt 2017 08:47

AW: Timer für ListBox
 
Wie wäre es, die Infos in einem Objekt zu speichern (Text und Zeitstempel), welches an den Elementen der Listbox hängt und dann über einen Timer regelmäßig ältere Elemente zu Löschen und weiterzusenden?

Jumpy 25. Okt 2017 08:56

AW: Timer für ListBox
 
Die Daten bei Ankunft in einem Objekt speichern, das als zusätzliches Feld die Ankunftszeit haben könnte. Oder nur die Daten in das Objekt und das dann mit der Ankunftszeit in einem Record oder einem anderen Container-Objekt speichern. Keine Ahnung was da sauberer ist.

Diese Records oder Objekte dann in einem Array oder einer Liste vewalten. Die ursprüngliche Listbox sollte nur zur Anzeige der Daten, nicht deren Verwaltung dienen.

Dann könntest du mittels eines Timers alle X Sekunden überprüfen ob ein Objekt schon 5 Minuten da ist (im Vergleich zur Ankunftszeit) und dass dann weiter verarbeiten. Wenn die Datenobjekte im Array oder der Liste nach Ankunftszeit sortiert sind brauchst du jeweils auch nur die obertsen Einträge der Liste prüfen.

lucy 25. Okt 2017 09:03

AW: Timer für ListBox
 
Hallo;

folgendes zum Empfang -> "SocketClientRead" und dann schreibe ich
"ListBox1.Items.Add(msg1)" in die ListBox.

Wie überprüfe ich jeden Datensatz? Zum Beispiel mit einem Timer?
Würde dann eine Art Zeitstempel brauchen... ?

mensch72 25. Okt 2017 09:23

AW: Timer für ListBox
 
Egentlich ist es gut das es bei dir gerade noch noicht funktioniert.

Eine Listbox ist ein GUI Element, und GUI Elemente dienen neben direkten Nutzereingaben besser NUR der Anzeige von Informationen.(im Klartext: man mißbraucht GUI-Elemente nicht als Datenspeicher)
Also unterlasse es deine Socketdaten direkt in die Listbox einzufügen! (Sockets haben meist auch was mit Threads zu tun und da funktioniert dein Code dann so eh nicht mehr)

Mache dir Gedanken was du zusätzlich zu deinen Empfangsdaten alles für Informationen für deine Programmlogik brauchst.
So erstellst du einen Datenelement-Record oder eine Datenelement-Klasse. Per TLIST<DatenelementRecord> würde im Einfachsten Fall daraus eine Liste wo es dann z.B. ein "Add" schon gäbe und du mit [Index] oder "for in" durchgehen durchgehen kannst.

Der Rest (z.B. dein Timing) ist Programmlogik, erst dann kommt das Darstellen in einer GUI Listbox oder das Abspeichern in eine z.B. Datenbank.

lucy 25. Okt 2017 10:07

AW: Timer für ListBox
 
Ok,
also lieber ein Memo anlegen?
Oder ist das Memo auch nicht geeignet?

Delphi-Quellcode:
var
  Rec: CustomRec;
begin
     Socket.ReceiveBuf(Rec,SizeOf(Rec));
     Memo1.Lines.Add(rec.Text)+(Zeitstempel);
end;
Wie würde die Überprüfung im Memo ablaufen? (Timer)

Delphi-Quellcode:
begin
 if Memo1. ...... then
  begin

  end;
end;

hoika 25. Okt 2017 10:30

AW: Timer für ListBox
 
Hallo,
erzeuge eine Klasse mit den gewünschten Daten

type
TListBoxEintrag = class
AnzeigeText: String;
Zeit: TDateTime;
end;

Erzeuge beim Eintreffen neuer Einträge neue Objekte und speichere sie in einer TObjectList.

Diese Objekt-Liste wird per Timer "bereinigt" (alte Elemente > x Minuten) fliegen raus.
Danach wird die ListBox neu gefüllt.

lucy 25. Okt 2017 10:49

AW: Timer für ListBox
 
Es sollen aber nicht alle Daten rausfliegen!
Nur der Datensatz, der seit fünf Minuten vorhanden ist.

p80286 25. Okt 2017 11:08

AW: Timer für ListBox
 
Zitat:

Zitat von lucy (Beitrag 1384095)
Es sollen aber nicht alle Daten rausfliegen!
Nur der Datensatz, der seit fünf Minuten vorhanden ist.

Wenn ich das von Hand machen müßte, dann würde einen Stapel erstellen
:Hole_Nachricht
auf den ich die eingehenden Nachrichten lege.
Dann würde ich mir die unterste anschauen ob die schon 5 Minuten im Stapel ist. Wenn ja wird sie herausgenommen. Das mache ich so lange bis die unterste Nachricht weniger als 5 Minuten im Stapel liegt.
goto Hole_Nachricht

so ungefähr

Gruß
K-H

vergessen:
Zwischendurch muß ich natürlich den Inhalt des Stapels anzeigen (lassen).


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:33 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz