Question

我在一个连接JSON文本的对象中有一个函数。函数结果是一个String - 生成的JSON文本。该函数只是将文本附加到结果的末尾......

function TDestination.GetAsJSON: String;
  procedure A(const Text: String);
  begin
    Result:= Result + Text + sLineBreak;
  end;
begin
  A('        {');
  A('            "name":"'+EncodeStr(FName)+'",');
  A('            "directory":"'+EncodeStr(FDirectory)+'",');
  A('            "description":"'+EncodeStr(FDescription)+'"');
  A('        }');
end;

在另一个父对象中循环调用此函数...

function TDestinations.GetAsJSON: String;
  procedure A(const Text: String);
  begin
    Result:= Result + Text + sLineBreak;
  end;
var
  X: Integer;
begin
  A('    [');
  for X := 0 to Count - 1 do begin
    if X > 0 then A('        ,');
    Result:= Result + Items[X].AsJSON;
  end;
  A('    ]');
end;

在第二个函数中，Items[X].AsJSON正在调用第一个函数。

问题是对TDestination.GetAsJSON的第二次（以及所有进一步的）调用仍然在函数结果中调用了上次调用时的字符串。

解决方案是在函数开头用Result:= '';简单地初始化结果。但问题是我为什么要这样做？为什么这个字符串会被遗忘？

令人费解的是，对此函数的每个不同调用都来自该对象的完全独立的实例。我会理解它是否是完全相同的对象实例，但事实并非如此。

Answer 1

Guido Gybels在他的文章“Using Assembler in Delphi”中表示具有长字符串类型结果的函数将其作为隐式var参数返回。因此编译器将您的函数视为：

(hidden)var 
          temp_s: String;
procedure GetAsJSON(var temps: String);
...
GetAsJSON(temp_s);
UsedResult1 := temp_s;
...
GetAsJSON(temp_s);
UsedResult2 := temp_s;

所以隐藏的字符串可以在某些条件下保留其值。

无论如何，你不是依赖整数结果的初始化0，对吗？

编辑：记录此行为：Delphi help link（处理函数结果部分）

在函数结果中留下字符串

1 个答案: