GetElementLevel Example for Delphi

Procedure TForm1.TestProc();
var
   x: Integer;
   nLevel: Integer;
begin
   //Navigate the Data Set as a List, not as a Tree
   //Move to the 20th element, and then find that element//s level in the Tree
   LEADDicomDS1.EnableMethodErrors:= True;

   //move to first element in Data Set
   LEADDicomDS1.MoveFirstElement (False);

   //move to the 20th element
   for x:= 2 To 20 do
     LEADDicomDS1.MoveNextElement(False);

   LEADDicomDS1.FindTag (LEADDicomDS1.DefaultInterface.Get_CurrentElement ().Tag);
   nLevel:= LEADDicomDS1.GetElementLevel;
   ShowMessage('Element: ' + LEADDicomDS1.DefaultInterface.Get_CurrentTag().Name + ' at level ' + IntToStr(nLevel));
end;