【Delphi互換!?】FreePascal/Lazarus その2【GPL】

[0193 デフォルトの名無しさん 2011/11/14(月) 00:34:31.05]

unit Unit1;

interface

var
xx: array of aa; <---------グローバル変数

implementation

function fun1(..);
begin
xx := ??;
end;

end.
--------------
unit Unit2;

interface

implementation

uses
unit1;

function fun2(..);
begin
yy := xx[3];
end;

end.