如何在Delphi函數中設置不同的結果值？

Question

我正在編寫這個函數，併爲我設置的行result := -10編譯器給我一個警告，說這樣的值是從未被設置的。我的邏輯有問題嗎？

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 
      result:= -10; 
    end; 
end; 

result := dash; 
end; 

Answer 1

值不被指定，因爲你在最後一行result的值設置爲dash。

你可以從

if distinct > 1 then 
     result:= -10; 

改變你的代碼，以

if distinct > 1 then 
     dash:= -10;