{$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.
 

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por personas con únicamente conocimiento básico del lenguaje, no de programación.

Otro punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

• Si es lenguaje C [c]Código en C[/c]
• Si es lenguaje Pascal [pascal]Aquí dentro el código de Pascal[/pascal].

De esta manera el código coloreas el código.

Me reservo el derecho de alterar, publicar o no los comentarios as´ como cambiar mis condiciones en el momento que así lo requiera.

¿estas de acuerdo? entonces adelante que ya te he quitado bastante tiempo leyendo esta basura de advertencias :)