Re: [fpc-pascal] readonly variables

[Anthony Walter]

procedure InitMyVariable(Value: T);
function MyVariable: T;

implementation

var
  PrivateMyVariable: T;
  PrivateMyVariableSet: Boolean;

procedure InitMyVariable(Value: T);
begin
  if not PrivateMyVariableSet then
    PrivateMyVariable := Value;
  PrivateMyVariableSet := True;
end;

function MyVariable: T;
begin
  Result := PrivateMyVariable;
end;
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal