unit SharedGlobals;
interface
const
ConstMyConstant = 30;
type
TMyType = record
AValue : String;
end;
var
MyVariable: Boolean=False;
function MyFunction(AValue : String) : String;
implementation
function MyFunction(AValue : String) : String;
begin
end;
end.
И использование этого:
unit Unit1;
interface
uses
SharedGlobals,
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
АMyType : TMyType;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
АMyType.AValue:=ConstMyConstant;
MyFunction(АMyType.AValue);
end;
end.