source: branches/UltimatOS/UMemory.pas

unit UMemory;

interface

uses
  Classes, SysUtils;

type
  { TMemory }

  TMemory = class
  private
    FSize: Integer;
    function GetSize: Integer;
    procedure SetSize(AValue: Integer);
  public
    Data: PByte;
    property Size: Integer read FSize write SetSize;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TMemory }

function TMemory.GetSize: Integer;
begin
  Result := MemSize(Data);
end;

procedure TMemory.SetSize(AValue: Integer);
begin
  if FSize = AValue then Exit;
  FSize := AValue;
  Data := ReAllocMem(Data, AValue);
end;

constructor TMemory.Create;
begin
  Data := nil;
end;

destructor TMemory.Destroy;
begin
  Size := 0;
  inherited;
end;

end.