Delphi가 잘못된 타입 변환을 설정하십시오

Question

이 잘못된 타입 변환 오류를 어떻게 수정합니까? 이 코드는 집합에 31 개 미만의 항목이있을 때 작동합니다. 아래는 코드입니다 :

type 
    TOptionsSurveyTypes=(
    ostLoadSurvey00, 
    ostLoadSurvey01, 
    ostLoadSurvey02, 
    ostLoadSurvey03, 
    ostLoadSurvey04, 
    ostLoadSurvey05, 
    ostLoadSurvey06, 
    ostLoadSurvey07, 
    ostLoadSurvey08, 
    ostLoadSurvey09, 
    ostLoadSurvey10, 
    ostEventLog01, 
    ostEventLog02, 
    ostEventLog03, 
    ostEventLog04, 
    ostEventLog05, 
    ostSagSwell, 
    ostTamper, 
    ostWaveforms, 
    ostDeviceList, 
    ostDeleteData, 
    ostTOUBillingTotal, 
    ostTOUPrevious, 
    ostProfileGenericLoadSurvey01, 
    ostProfileGenericLoadSurvey02, 
    ostProfileGenericLoadSurvey03, 
    ostProfileGenericLoadSurvey04, 
    ostProfileGenericLoadSurvey05, 
    ostProfileGenericLoadSurvey06, 
    ostProfileGenericLoadSurvey07, 
    ostProfileGenericLoadSurvey08, 
    ostProfileGenericLoadSurvey09, 
    ostProfileGenericLoadSurvey10, 
    ostProfileGenericEventLog01, 
    ostProfileGenericEventLog02, 
    ostProfileGenericEventLog03, 
    ostProfileGenericEventLog04, 
    ostProfileGenericEventLog05, 
    ostProfileGenericBillingTotal, 
    ostProfileGenericPrevious, 
    ostProfileGeneric 
); 
TOptionsSurveyTypesSet=set of TOptionsSurveyTypes; 

function TUserProcessRollback.SurveyRollBack:boolean; 
var 
    vRollbackDate: TDateTime; 
    FOptions: LongWord; 
begin 
... 
    if ostDeleteData in TOptionsSurveyTypesSet(FOptions) then <-- invalid typecast error here 
    vRollbackDate := 0.00 
    else 
    vRollbackDate := FRollbackDate; 

... 
end; 

나는 세트가 줄여

그냥 미만 32 개 항목과 FOptions가 DWORD로 선언하는 코드는 컴파일합니다.

감사합니다.

Answer 1

열거 형에는 41 개 항목이 있습니다. 각 바이트는 8 비트를 보유합니다. 이 열거 형 세트를 가지려면 적어도 41 비트가 필요합니다. 41 비트를 유지하는 데 필요한 최소 바이트 수는 6입니다. 따라서 설정 유형은 6 바이트입니다.

이

ShowMessage (inttostr (sizeof (TOptionsSurveyTypesSet))); 

DWORD는 4 바이트이므로 6 바이트 타입으로 캐스트 할 수 없습니다이를 확인하려면, 당신은이 작업을 실행할 수 있습니다. fOptions을 6 바이트 형식으로 선언하면 코드가 컴파일됩니다. 당신이 32 개 이하의 항목에 대한 열거 형을 줄일 경우

FOptions: packed array [ 1 .. 6] of byte; 

는 다음 세트의 형태가 4 바이트 될 것입니다, 그래서 DWORD의 배역 작동합니다.