blob: 46232f4ddb6e0edb788bf397bef2b582e9694d48 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ Old file: tbs0210.pp }
{ fillchar should accept boolean value also !! OK 0.99.11 (PM) }
{ boolean args are accepted for fillchar in BP }
program test;
var l : array[1..10] of boolean;
begin
fillchar(l,sizeof(l),true);
end.
|
