VBasic > Delphi ich verstehe das was nicht

[generic]

ja

Delphi-Quellcode:

var 
  checksum: byte; // vieleicht integer

begin
  checksum := (255 - ((((13 + address + ORD("S") + ORD("4")) / 256) - ((13 + address + ORD("S") + ORD("4")) DIV 256)) * 256)) + 1

ich habs zwar nicht im compiler ausprobiert - sollte ab so laufen.