unit1.pas

Delphi snippet to convert variants values to xml

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, AppEvnts, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    StatusBar: TStatusBar;
    Memo1: TMemo;
    ApplicationEvents1: TApplicationEvents;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$I JEDI.INC}
uses activex, PBVariantUtils,
     {$IFDEF DELPHI6_UP}
     Variants,
     {$ENDIF}
     ComObj;

{$R *.DFM}

Function TestVarArray: Variant;
  Var
    i, k: Integer;
  Begin
    Result := VararrayCreate( [1,2,2,5 ], varOleStr );
    For i:= 1 to 2 do
      For k:= 2 to 5 do
        Result[i,k] := 'Item '+IntTostr(i*k);
  End;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 V, VRef: Variant;

begin
  V:= VarArrayCreate( [1,4], varVariant );
  V[1] := TestVarArray;
  V[2] := 'A Test String';
  V[3] := CreateOleObject('Shell.Application');
  V[4] := VarArrayOf( [-1,0,1,256,-256,100000, -100000, Pi] );
  VRef := VarArrayRef( V );
  memo1.lines.add( DebugDisplayVariant( VRef ));
end;

end.