sampleinclude.dws

来自「script language」· DWS 代码 · 共 13 行

var SomeValue: Integer = 0;

function GetSomeValue: Integer;
begin
  Result := SomeValue;
end;

procedure SetSomeValue(New: Integer);
begin
  SomeValue := New;
end;