1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
{ %fail } { %opt=-Sew -vw } {$mode delphi} function calclength1: integer; var a: array of byte; begin result := length(a); end; begin end.