blob: 56f2999fcbe32c2973de06abcf79da97e4f09888 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %version=1.1 }
{ %TARGET=linux,freebsd,darwin,solaris }
{$linklib c}
type
tprintfproc=procedure(t:pchar);varargs;cdecl;
procedure printf(t:pchar);varargs;cdecl;external;
var
t : tprintfproc;
begin
printf('Proc test %d %s %lf'#10,1,'test',1234.5678);
t:=@printf;
t('Procvar test %d %s %lf'#10,2,'test',1234.5678);
end.
|
