Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
3.004 Beiträge
 
Delphi 2009 Professional
 
#13

AW: Datenweiterleitung zwischen TIdTCPClient und Serial Port

  Alt 16. Feb 2017, 13:23
Falls du die Write Methode meinst. Diese verfügt nicht mehr über einen Datentyp, dass ist nur ein Speicherbereich mit einem Anfang und einer Länge.
Deswegen benötigt sie die Länge des Arrays.
Das if (Length(ABytes) > 0) prüft ob das zuvor initialisierte und an ReadBytes übergebene Array eine von 0 verschiedene Länge hat. Falls Indy es nicht in der Länge ändert, muss die Bedingung immer True ergeben. Damit könnte sie auch weggelassen werden. Und die an Write übergebene Anzahl Bytes ist dann ebenfalls konstant.
Michael Justin
  Mit Zitat antworten Zitat