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