123456789101112131415161718192021222324252627 |
- unit tval4;
- {$mode fpc}
- interface
- function TestAllval4 : boolean;
- implementation
- uses
- tvalc;
- type
- IntegerType = qword;
- {$i tval.inc}
- function TestAllval4 : boolean;
- begin
- Writeln('Test val for qword type');
- TestAllval4:=TestAll;
- end;
- end.
|