Advertisement
Guest User

Untitled

a guest
Mar 30th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. type
  2. TFoo = record
  3. i: UInt64;
  4. b: Boolean;
  5. end;
  6.  
  7. TFooArray = array of TFoo;
  8.  
  9. var
  10. Foo: TFooArray;
  11.  
  12. procedure test(f: TFoo);
  13. begin
  14. end;
  15.  
  16. begin
  17. // Operator not compatible
  18. // Maybe Right.VarType = Left.ArrayType ?
  19. // Foo += [1, False];
  20.  
  21. // Works
  22. Foo += TFoo([1, False]);
  23.  
  24. test([1, False]);
  25. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement