호환되지 않는 유형 : 주석으로 'tValidPos'와 'TPOS'다음 코드에서

Question

, 나는 오류를 얻을 :

function ToPos : tValidPos; 
type 
    tPos  = (poAboveCenter , poAboveLeft , poAboveRight); 
    tValidPos = array [Low (tPos)..High (tPos)] of tPos; 
const 
    validPos : tValidPos = (poAboveRight, poAboveLeft, poAboveCenter); 
var 
    i, pos : tValidPos; 
begin 
    i := Low (validPos); // Incompatible types: 'tValidPos' and 'tPos' 
    pos := validPos [i]; // Incompatible types: 'Enumeration' and 'tValidPos' 
    Result := i; 
    for i := Low (validPos) to High (validPos) do 
    if validPos [i] = pos then begin 
     Result := validPos [i]; 
     Break; 
    end; 
end; 

내가

1. i 때문에, 무엇이 잘못되었는지 알아낼 수 없습니다 및 validPos 동일 tValidPos
2. pos는 적용 유형 모두와 validPos

있다3210

나는 아직도 얻을 pos [0] := validPos [i] 같은 괄호를 사용하는 경우 "호환되지 않는 유형을 '열거'와 'tValidPos'는"

는이 문제를 해결하기 위해 도와주세요.

Answer 1

마지막으로 해결책을 찾았습니다. 참으로 아주 간단했습니다. 인덱스에 열거 배열을 서수 값을 사용하는 것이 가능하지 않기 때문에

상기 방법은 달성이 동시에 Succ 함수를 사용하여 다음 validPos 페치 tComboBox.ItemIndex 기반으로 반복하여이었다.

type tPos  = (po1, po2, po3, po4, po5, poNil); 
    tValidPos = array [Low (tPos)..High (tPos)] of tPos; 
const validPos : tValidPos = (po1, po4, poNil, poNil, poNil, poNil); 
......... 
function ToPos (const aComboBox: tComboBox; validPos: tValidPos) : tPos; 
var p, pos : tPos ; 
    i  : Byte; 
begin 
    p := Low (ValidPos); // initialize with first validPos 

    for i := 0 to aComboBox.ItemIndex do begin 
    pos := validPos [p]; // current validPos 

    if pos = poNil then begin // not validPos? 
     pos := Low (ValidPos); // first validPos 
     Break; 
    end; 

    if Succ (p) <= High (validPos) then // next p is in range? 
     p := Succ (p) // next validPos 
    else 
    begin 
     pos := Low (ValidPos); // first validPos 
     Break; 
    end; 
    end; 

    Result := pos; // return corresponding validPos 
end; 

하나 개의 제한이있다 : validPos 요소 tPos 같이 를 주문해야합니다.

참고 : 방금 "인덱싱"솔루션을 사용하지 않았으므로 누적 된 이유는 입니다. 좋은 생각을 준 후 실제 해결책이 나타났습니다.

Answer 2

i : = 낮음 (validPos); // 호환되지 않는 유형 : 'tValidPos'와 'TPOS'

i 배열이지만, 하나의 순서 값이 아닌 배열을 Low(validPos) 반환합니다. Hense 호환되지 않는 유형입니다.

pos : = validPos [i]; // 호환 유형 '열거'및 'tValidPos'

pos 또한 배열이지만 validPos[i] 단일 서수 값이 아닌 배열이다. Hense 호환되지 않는 유형입니다. 당신이 시도하고있는 무슨

이 들어 i, pos 및 Result 모두 tPos하지 tValidPos로 선언해야합니다.