unit NLDReadWriteEnvironmentBlock;
// Auteur Thaddy de Koning
// Freeware

interface
uses windows, classes, SysUtils;

const
  // Terminator gedefinieerd als typed const
  // (Zoadat het een memory reference heeft)
  NullChar:Char = #0;

type
  TEnvironmentBlockReader = class(Tstringlist)
  public
    constructor Create;
  end;

  TEnvironmentBlockWriter = class(TStringStream)
  private
     FClosed:Boolean;
    function GetBlockPtr: PAnsiChar;
  protected
     procedure Close;
  public
     procedure Add(const aValue:string);overload;
     procedure Add(const aToken,aValue:string);overload;
     Property Block:PAnsiChar read GetBlockPtr;
  end;

implementation
{ TEnvironmentBlockWriter }

// Is het blok gesloten?
// Zoja, ga een positie terug
// Schrijf de string
// Schrijf terminating #0
procedure TEnvironmentBlockWriter.Add(const aValue: string);
begin
  If FClosed then
  begin
    Seek(-1,soFromEnd);
    Fclosed :=False;
  end;
  WriteString(aValue);
  Write(NullChar,1);
end;

procedure TEnvironmentBlockWriter.Add(const aToken, aValue: string);
begin
  Add(aToken+'='+aValue);
end;

// Block afsluiten door een extra #0 te schrijven, als gespecificeerd
procedure TEnvironmentBlockWriter.Close;
begin
  if not FClosed then
  begin
    write(NullChar,1);
    FClosed := True;
  end;
end;

// Als we het block uitlezen nemen we aan dat het gesloten is!
function TEnvironmentBlockWriter.GetBlockPtr: PAnsiChar;
begin
  Close;
  Result := PChar(DataString);
end;

{ TEnvironmentBlockReader }

constructor TEnvironmentBlockReader.Create;
var
  FBlock,
  StrPtr:PChar;
begin
  inherited;
  FBlock :=GetEnvironmentStrings;
  if FBlock <>  nil then
  try
    StrPtr := FBlock;
    repeat
      Add(StrPtr);
      inc(StrPtr, Succ(StrLen(StrPtr)));
    until StrPtr^= #0;
  finally
    FreeEnvironmentStrings(Fblock);
  end;
end;

end.