questions concerning procedural types

[anonymousstranger]

1) Given:

Code: Pascal  [Select][+][-]

1. Type
2.   TOneArgCcall = Procedure (Var X : integer);
3.  
4. var
5.   proc : TOneArgCcall;  
6.  
7. Procedure printit (Var X : Integer);  
8.  
9. begin  
10.   WriteLn (x);  
11. end;
12.  
13. begin  
14.   Proc := @printit;  
15. end.
16.  

How does one pass a value into printit through proc? I'm kind of fuzzy on how this works.

2)Say you have a procedural type that references a procedure/function in a library. does the procedural type also require the "external" tag?

[Blaazen]

Since you pass variable x by reference (var), you have to write:

Code: Pascal  [Select][+][-]

1. var i: Integer;
2. begin
3.  
4.   Proc := @printit;
5.  
6.   i:=5;
7.   Proc(i);
8. end;

i can be global variable as well.

Don't know about external keyword.

[anonymousstranger]

cool  thanks.