Probh porovnvn soubor Spectrum2.pas a spectrum.pas
****** Spectrum2.pas
  {/v0.50}
  {v0.51pi}
  ,ULDPType, ULDPObju
  {/v0.51pi}
  ;
****** spectrum.pas
  {/v0.50}
  ;
******

****** Spectrum2.pas
  d: TULDRObj;
  {v0.51pi}
  prop: TULDPObj; {TULObj;}
  {/v0.51pi}
  fnd: boolean;
****** spectrum.pas
  d: TULDRObj;
  fnd: boolean;
******

****** Spectrum2.pas
      ULAD[di].Addr := StrToInt(d.AddrStr);
      {v0.51pi}
      try {ClassGetPropStr(o, pi)}
        if d.HasChildWithFieldUsrValue('PropDesc','ADCSAMPPER', TULObj(prop)) then
        if prop<>nil then begin
          ULAD[di].PointTimeInterval:=StrToInt(prop.ValueInPC);
        end;
      except
      end;
      {/v0.51pi
      if pos('REFR', Uppercase(d.DeviceName)) > 0 then begin
****** spectrum.pas
      ULAD[di].Addr := StrToInt(d.AddrStr);
      if pos('REFR', Uppercase(d.DeviceName)) > 0 then begin
******

****** Spectrum2.pas
        ULAD[di].PointTimeInterval := 100;
        (*ULAD[di].YCoef := 1;*)
      end;
      }
    end;
****** spectrum.pas
        ULAD[di].PointTimeInterval := 100;
        {ULAD[di].YCoef := 1;}
      end;
    end;
******


