arrays - Delphi boolean 返回函数提示 : Value assigned to '' never used?

Question

我有

playerIds : Array[0..500] of string;

function isPlayerMob(check : string): boolean;
var
    i : integer;
begin
    for i := 0 to 500 do
    begin
        if ((playerIds[i] <> '') and (playerIds[i] = check)) then
        begin
            result := true;
        end;
    end;
    result := false;
end;

我收到警告

Hint: Value assigned to 'isPlayerMob' never used

谁能告诉我如何解决这个问题？错误是针对

result := true;

Answer 1

正如其他人告诉您的那样，您的循环分配给 Result 的值将被丢弃，因为您没有在最终分配给 Result 之前退出函数，所以它循环分配什么并不重要。

您可以为结果分配一个初始值，然后根据需要重新分配它，或者您可以在分配了所需的值后简单地退出:

function isPlayerMob(check : string): boolean;
var
  i : integer;
begin
  for i := 0 to 500 do
  begin
    if ((playerIds[i] <> '') and (playerIds[i] = check)) then
    begin
      Result := True;
      Exit; // <-- add this
    end;
  end;
  Result := False; // <-- only performed if the loop does not find a match
end;

或者，如果您使用的是最新的 Delphi 版本:

function isPlayerMob(check : string): boolean;
var
  i : integer;
begin
  for i := 0 to 500 do
  begin
    if ((playerIds[i] <> '') and (playerIds[i] = check)) then
      Exit(True); // <-- sets Result and exits at the same time
  end;
  Result := False; // <-- only performed if the loop does not find a match
end;