FindIndexModule Example for C++Builder

   Cardinal uCount, n;
   AnsiString sOut;

   LEADDicom1->EnableMethodErrors = false;
   uCount = LEADDicom1->GetModuleCount();
   LEADDicom1->GetInfoDS();
   sOut = "Found " + IntToStr(uCount) + " Modules\n";
   for(n = 0; n<uCount; n++)
   {
      LEADDicom1->FindIndexModule(n);
      LEADDicom1->FindModuleIOD(LEADDicom1->InfoClass, LEADDicom1->CurrentModule->Module);
      sOut = sOut + "Module " + LEADDicom1->CurrentIOD->Name + "\n";
   }
   ShowMessage(sOut);
   LEADDicom1->EnableMethodErrors = true;