Code: Select all
program locvartest;
var i : array[0..7] of byte;
procedure proc1;
var i : longint;
begin
i := 12345;
end;
procedure proc2;
var i : string[20];
begin
i := 'test';
end;
procedure proc3;
var i : real;
begin
i := 123.456;
proc1;
i := i * 2;
end;
procedure proc4;
var i : word;
begin
for i := 1 to 5 do nop;
proc3;
end;
begin
i[5] := 17;
proc1;
proc2;
proc3;
proc4;
end.
JPC