fpc/packages/fcl-base/examples/txmlreg.pp

{$mode objfpc}
{$h+}
program txmlreg;

uses xmlreg;

Var
  S : String;
  C : Cardinal;
  A : Array[0..15] of byte;

begin
  S:='SomeValue <>&';
  For C:=0 to 15 do
    A[C]:=C;
  With TXmlRegistry.Create('test.xml') do
    try
      If SetKey('/my/very/nice/key',true) then
        begin
        Writeln('Set key.');
        Writeln('Writing Carinal value');
        SetValueData('Cardinal',dtdword,C,SizeOf(C));
        Writeln('Writing string value');
        SetValueData('String',dtString,S[1],length(S));
        Writeln('Writing binary value');
        SetValueData('Binary',dtBinary,A,SizeOf(A));
        SetValueData('SecondCardinal',dtdword,C,SizeOf(C));
        DeleteValue('SecondCardinal');
        end;
    finally
      Free;
    end;
end.