IncludeVolatile Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   //list all elements
   LEADDicomDS1.IncludeVolatile:= True;
   nRet:= LEADDicomDS1.MoveFirstElement (False);
   while (nRet= 0) do
   begin
      Memo1.Lines.Add(IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentElement ().Tag));
      nRet:= LEADDicomDS1.MoveNextElement(False);
   end;
   ShowMessage('Element Count:= ' + IntToStr(Memo1.Lines.Count));
   //list only non-volatile elements
   LEADDicomDS1.IncludeVolatile:= False;
   nRet:= LEADDicomDS1.MoveFirstElement (False);
   While (nRet = 0) do
   begin
     Memo2.Lines.Add(IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentElement().Tag));
     nRet:= LEADDicomDS1.MoveNextElement(False);
   end;
   ShowMessage('Non Volatile Element Count:= ' + IntToStr(Memo2.Lines.Count));
end;