IncludeVolatile Example for Delphi

var
   nRet: Integer;

begin
   LEADDicom1.EnableMethodErrors := False;

   { list all elements }
   LEADDicom1.IncludeVolatile := True;
   nRet := LEADDicom1.MoveFirstElement(False);
   Memo1.Lines.Clear();
   While nRet = SUCCESS do
   begin
      Memo1.Lines.Add(IntToStr(LEADDicom1.CurrentElement.Tag));
      nRet := LEADDicom1.MoveNextElement(False);
   end;
   ShowMessage('Element Count = ' + IntToStr(Memo1.Lines.Count));

  { list only non-volatile elements }
   LEADDicom1.IncludeVolatile := False;
   nRet := LEADDicom1.MoveFirstElement(False);
   Memo1.Lines.Clear();
   While nRet = SUCCESS do
   begin
      Memo1.Lines.Add(IntToStr(LEADDicom1.CurrentElement.Tag));
      nRet := LEADDicom1.MoveNextElement(False);
   end;
   ShowMessage('Non Volatile Element Count = ' + IntToStr(Memo1.Lines.Count));
end;