Problema con "en" operador en Delphi

Question

Hola chicos tengo un problema extraño y no sé dónde estoy haciendo mal ...

he el siguiente código busque al final de la misma que es donde que no les comentaba que ...

var 
    IDH:PImageDosHeader; 
    INH:PImageNtHeaders; 
    ISH:PImageSectionHeader; 
    buf:Pointer; 
    FS:TFileStream; 
    ep,tmp1,tmp2:DWORD; 
    i:Word; 
begin 
    if OpenDialog1.Execute then 
    begin 
     FS:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone); 
     GetMem(buf,FS.size); 
     FS.Read(buf^,FS.Size); 
     FS.Free; 
     IDH:=PImageDosHeader(buf); 
     INH:=PImageNtHeaders(DWORD(buf) + DWORD(IDH^._lfanew)); 
     ep:=INH^.OptionalHeader.AddressOfEntryPoint; 
     for i:=0 to INH^.FileHeader.NumberOfSections - 1 do 
     begin 
      ISH:=PimageSectionHeader(DWORD(INH) + sizeof(TImageNtHeaders) + i * sizeof(TImageSectionHeader)); 
      tmp1:=ISH^.VirtualAddress; 
      tmp2:=ISH^.VirtualAddress + ISH^.Misc.VirtualSize; 
      ShowMessageFmt('%d -> %d .. %d',[ep,tmp1,tmp2]); 
      if ep in [tmp1..tmp2] then ShowMessage('Got it'); //This fails even if ep is in the defined interval. Why? 
     end; 
    end; 
end; 

Por supuesto que puedo reemplazar esa línea con

if (ep>=tmp1) and (ep<=tmp2) 

pero yo quiero saber lo que estoy haciendo mal.

Answer 1

Un conjunto es una colección de valores del mismo tipo. Este tipo debe ser ordinal, y una variable de este tipo debe tener como máximo 256 valores posibles. (Official documentation) Por lo tanto, un conjunto no puede contener números enteros, ya que hay más de 256 números enteros posibles.

usted podría utilizar la función InRange:

if InRange(ep, tmp1, tmp2) then 

(uses Math).