Suche 1-Wire Treiber fürs Auslesen von DS18B20 Sensoren

Hallo zusammen,
wie versprochen nun das Ergebnis meiner Recherchen.
Im Anhang findet Ihr eine Unit "OneWire_Bus.pas", die die grundlegenden Befehle zum Umgang mit dem 1-Wire Bus
und speziell die Kommunikation mit DS18B20 Temperatursensoren enthält.
Im Kopf der Unit steht was zu beachten ist.
Der zweite Anhang "1-Wiretest.pas" ist ein kleines Beispielprogramm für das Auslesen von bis zu 4 * DS18B20.
Es ist sicher nicht die Krone der Programmierkunst, vielleicht hilft es doch mal jemandem weiter.

Grüsse
Roy

Edit: Die Unit wurde korrigiert.

Hallo Harry,

natürlich darfst Du den Thread dahin verschieben. Wenn möglich schicke mir bitte einen Link vom neuen Platz, dass ich den Beitrag einfach wiederfinde.

Zum Programm: Im Beispiel mache ich der Einfachheit halber für jeden meiner 4 Sensoren eine Auswertung - bei Deinen 15 wird eine Abarbeitung in einer Schleife effizienter sein.
In der Unit gibt es die Konstante "MaxSensoren",

Wenn Du mehr brauchst einfach hier angeben, das Array

wird dann ensprechend grösser. Hier passen aber max. 32 Sensoren rein (Byte!).
Ich habe übrigens in der Unit einen Fehler gesehen:

Das Array muss mit
TActID = array[0..7] of Byte;
deklariert werden!

Grüsse
Roy

Edit: Man, da hatte ich wirklich einen schlechten Tag, die Deklaration von TIDs muss richtig heißen:
und "MaxSensoren" dann
.
Ich hoffe jetzt stimmt's.