unit1.~pas

此程序演示了利用xml控件（当然也可以不通过xml控件）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

  uses uShareMem //引用共享单元
    ,NativeXml; //使用XML包
  
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if uShareMem.ShareMem_SaveToMemory( self.Memo1.Text ) then
    showMessage( '写入成功!' )
  else
    showMessage( '写入失败!' );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  self.Memo1.Text := uShareMem.ShareMem_LoadFromMemory();
  showMessage( '读取完成!' );
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  self.Memo1.Clear;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  ADoc: TNativeXml;
begin
  ADoc := TNativeXml.Create;
  try
    ADoc.EncodingString := 'GB2312';
    ADoc.Root.Name := 'root';
    ADoc.Root.NodeNew( 'aa' ).ValueAsString := 'bb';

    if adoc.Root.FindNode( 'AA' )=nil then showmessage( '节点不存在' ) else showmessage( '节点存在' );

    adoc.Root.NodeByName( 'aa' ).ValueAsString := 'kkk';
    ShowMessage( ADoc.WriteToString );
  finally
    ADoc.Free;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  uShareMem.ShareMem_SetValue( 'qq', '86804' );
  uShareMem.ShareMem_SetValue( 'memo', self.Memo1.Text );
  showMessage('写入完成' );
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  showMessage( 'QQ=' + uShareMem.ShareMem_GetValue( 'QQ' ) );
  showMessage( uShareMem.ShareMem_GetValue( 'memo' ) );
end;

end.