MoveFirstIOD Example for Delphi

var
   hIOD: LongInt;
begin
   LEADDicomDS1.EnableMethodErrors:= True;

   //Move to the First IOD in the list
   LEADDicomDS1.MoveFirstIOD (False);
   hIOD:= LEADDicomDS1.DefaultInterface.Get_CurrentIOD().hIOD; //store it
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   //Move to the Last IOD at this same level
   LEADDicomDS1.MoveLastIOD(True);
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   //Move to the Previous IOD at this same level
   LEADDicomDS1.MovePrevIOD(True);
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   //Move back to First IOD
   LEADDicomDS1.SetCurrentIOD(hIOD);

   //Move to the Next IOD at this same level
   LEADDicomDS1.MoveNextIOD(True);
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);
end;