Hey Alzaimar,
nicht leicht das ganze für einen E-Techniker
, ABER es funktioniert, zumindest in dem kleien Beispiel. Doch da ist noch etwas:
Zitat:
Du kannst natürlich die Methode BtreeCompare an deine Bedürfnisse anpassen. Dabei musst Du aber darauf achten, das 'identische' Records (die also den Vergleichswert '0' liefern) als Identität behandelt, also auch überschrieben werden.
Ich will aber gar nicht dass die Daten überschrieben werden, sondern ich brauche alle Daten als Protokoll. Dies dient da´zu später nach bestimmten Zeiten zu gucken, wann das Telegramm gekommen ist. Ach
, werden sie ja auch nicht, da der Timestamp immer anders ist. Dadurch wird der Verglichswert 0 so nie erreicht!!
Ist es dann überhaupt noch sinnvoll solche Datensruktur zu benutzen, oder würdest du etwas anderes vorschlagen??
Ich hab mal einfach versucht, nach den Daten zu sortieren und später das ganze wieder auszulesen. Kam aber leider nichts erfolgreiches raus, außerdem führt jede neue Suchroutine zu einer enormen Verlangsamung. Ansonsten kann ich die Daten ja so lassen wie sie sind und später beimauslesen dann sortieren aufm Grid ausgeben.
Hab das so realisiert
:
Delphi-Quellcode:
If a.msgbuff.ID < b.msgbuff.ID then aresult := -1
else if a.msgbuff.ID > b.msgbuff.ID then aResult := +1
else if a.msgbuff.DATA[0] < b.msgbuff.DATA[0] then aResult := -1
else if a.msgbuff.DATA[0] > b.msgbuff.DATA[0] then aResult := +1
else if a.msgbuff.DATA[1] < b.msgbuff.DATA[1] then aResult := -1
else if a.msgbuff.DATA[1] > b.msgbuff.DATA[1] then aResult := +1
else if a.msgbuff.DATA[2] < b.msgbuff.DATA[2] then aResult := -1
else if a.msgbuff.DATA[2] > b.msgbuff.DATA[2] then aResult := +1
else if a.msgbuff.DATA[3] < b.msgbuff.DATA[3] then aResult := -1
else if a.msgbuff.DATA[3] > b.msgbuff.DATA[3] then aResult := +1
else if a.msgbuff.DATA[4] < b.msgbuff.DATA[4] then aResult := -1
else if a.msgbuff.DATA[4] > b.msgbuff.DATA[4] then aResult := +1
else if a.msgbuff.DATA[5] < b.msgbuff.DATA[5] then aResult := -1
else if a.msgbuff.DATA[5] > b.msgbuff.DATA[5] then aResult := +1
else if a.msgbuff.DATA[6] < b.msgbuff.DATA[6] then aResult := -1
else if a.msgbuff.DATA[6] > b.msgbuff.DATA[6] then aResult := +1
else if a.msgbuff.DATA[7] < b.msgbuff.DATA[7] then aResult := -1
else if a.msgbuff.DATA[7] > b.msgbuff.DATA[7] then aResult := +1
else aResult := 0;
end;
Wenn ich die Daten dann in einer Listbox ausgebe, siehts am Anfang noch recht gut aus, aber dann
Zitat:
ID Data 1 Data2 Data3 .....
21 ; 20 ; 68 ; 89 ; 126 ; 219 ; 107 ; 216 ; 248
21 ; 20 ; 90 ; 65 ; 95 ; 150 ; 226 ; 65 ; 247
21 ; 20 ; 98 ; 55 ; 123 ; 20 ; 197 ; 127 ; 170
21 ; 20 ; 105 ; 80 ; 159 ; 236 ; 28 ; 52 ; 235
21 ; 20 ; 114 ; 104 ; 119 ; 201 ; 197 ; 138 ; 117
21 ; 20 ; 120 ; 153 ; 63 ; 97 ; 8 ; 40 ; 17
21 ; 20 ; 125 ; 117 ; 125 ; 13 ; 27 ; 181 ; 29
21 ; 20 ; 127 ; 240 ; 30 ; 250 ; 85 ; 155 ; 218
21 ; 20 ; 133 ; 191 ; 180 ; 119 ; 249 ; 53 ; 15
21 ; 20 ; 145 ; 249 ; 140 ; 235 ; 107 ; 72 ; 234
21 ; 20 ; 156 ; 20 ; 160 ; 154 ; 213 ; 109 ; 122
21 ; 20 ; 168 ; 212 ; 233 ; 4 ; 217 ; 147 ; 13
21 ; 20 ; 186 ; 240 ; 41 ; 60 ; 122 ; 180 ; 96
21 ; 20 ; 196 ; 39 ; 115 ; 63 ; 66 ; 92 ; 207
21 ; 20 ; 196 ; 173 ; 179 ; 123 ; 106 ; 218 ; 234
21 ; 20 ; 223 ; 225 ; 30 ; 0 ; 33 ; 249 ; 250
21 ; 20 ; 234 ; 48 ; 58 ; 56 ; 30 ; 140 ; 175
21 ; 21 ; 1 ; 234 ; 220 ; 30 ; 181 ; 177 ; 110
21 ; 21 ; 2 ; 19 ; 153 ; 150 ; 121 ; 191 ; 227
Wie gesagt, wenns nicht anders geht, kann ich die Sortierung auch in der Anzeige machen. Da kommt es auf die Zeit nicht an.
Hättest du eine andere Idee??
Nochmal
für die Super Unterstützung, ist nicht so leicht für mich..