델파이의 결과 값 논리?

Question

문자열이 하나의 문자 만 다른 경우 이 함수를 코딩합니다.이 맞으면 +1을 반환하고 그 이상인 경우 -10을 반환합니다. 1 문자.

내가 '100' 및 '101' 또는으로 할 때 그냥 '010' 및 '110' 또는 '100' 및 '110' 작동 0과 1을 각각 반환, 좋은 ...주고 예를 들어

그러나 '110' 및 '111'내가 얻을 결과가 -1 일 때 2! 필자는 데스크탑 테스트를 수행했으며 실수를 볼 수 없습니다.

function combine (m1, m2 : string) : integer; 
var 
dash : integer; 
distinct : integer; 
i : integer; 

begin 
distinct := 0; 
dash := -1; 

for i := 0 to Length(m1)-1 do 
begin 
    if m1[i] <> m2[i] then 
    begin 
     distinct := distinct+1; 
     dash := i; 
     if distinct > 1 then 
     begin 
      result:= -10; 
      exit; 
     end; 
    end; 
end; 
result := dash; 
end; 

난 항상지고있어 동일한 길이 문자열, 내가 잘못 뭐하는 거지 ?

Answer 1

주요 문제는 델파이 문자열이 1 기반이라는 것입니다. 루프를 1에서 Length(m1)까지 실행해야합니다.

컴파일러 옵션에서 범위 검사를 사용하도록 설정 한 경우 컴파일러는 런타임에 오류를 발생시켜 오류를 발생시킬 수 있습니다. 범위 검사를 사용하도록 충분히 강조 할 수는 없습니다. 컴파일러에서 코드의 오류를 찾아냅니다.

또한 이는 반환 값이 1을 기반으로한다는 것을 의미합니다. 따라서 '100', '101'의 입력은 결과가 3 일 때 첫 번째 차이점의 인덱스이므로 결과를 제공합니다.

또한 m1과 m2이 같은 길이인지 확인해야합니다. 그렇지 않으면 예외가 발생합니다.

다른 팁. 1 변수를 증가하는 관용적 인 방법과 같이이다 :

inc(distinct); 

다른 값을 쓰기로 증가 할 경우 : 그래서

inc(distinct, n); 

, 나는이 같은 기능을 작성합니다

function combine(const m1, m2: string): integer; 
var 
    i: integer; 
    dash: integer; 
    distinct: integer; 
begin 
    if Length(m1)<>Length(m2) then begin 
    raise EAssertionFailed.Create('m1 and m2 must be the same length'); 
    end; 

    distinct := 0; 
    dash := -1; 

    for i := 1 to Length(m1) do 
    begin 
    if m1[i] <> m2[i] then 
    begin 
     inc(distinct); 
     dash := i; 
     if distinct > 1 then 
     begin 
     result := -10; 
     exit; 
     end; 
    end; 
    end; 
    result := dash; 
end;