是否可以在Delphi中使用Fluent调用样式自引用记录？

Question

目标是创建一个名为TURLString的类型,如下所示:

var
  newURl : TURLString;
begin

  newURL.Append('http://').Append('www.thehost.com').Append('path/on/server').Append('?');

  ...lots of app logic...

  newURL.AppendParam('name', 'value').Append('#').AppendParam('name', 'value');

  ...more params added...

  result := httpClient.Get(newURL);

end;

使用TURLString定义(注意它的记录):

//from actual code used
TURLString = record
private
    FString : string;
public
    function Append(APart : string) : TURLString;
    function AppendParam(AParam, AValue : string) : TURLString;
end;

function TURLString.Append(APart: string) : TURLString;
begin
  FString := FString + APart;
  result := self;
end;

function TURLString.AppendParam(AParam, AValue: string): TURLString;
begin
  if (not Empty) then
    FString := FString + URL_AMB;
  FString := FString + AParam + '=' + AValue;
  result := self;
end;

当单步执行流体调用时,会附加值,但退出时它们将恢复为传递给第一个追加调用的第一个字符串,newURL等于'http://',同时调试您看到的附加调用'http:// www .thehost.com /路径/ /服务器？名称=值#NAME =价值".

这个概念是否可以带有记录？

Answer 1

要摆脱记录副本的性能和内存使用问题,可以使用指针作为方法的结果类型:

type
  PURLString = ^TURLString;
  TURLString = record
  private
    FString : string;
  public
    function Append(const APart : string) : PURLString;
    function AppendParam(const AParam, AValue : string) : PURLString;
  end;

function TURLString.Append(const APart: string) : PURLString;
begin
  FString := FString + APart;
  result := @self;
end;

function TURLString.AppendParam(const AParam, AValue: string): PURLString;
begin
  if FString <> '' then
    FString := FString + URL_AMB;
  FString := FString + AParam + '=' + AValue;
  result := @self;
end;

因此,您可以根据需要调用原始TURLString:

newURL.Append('http://').Append('www.thehost.com').Append(...

并且不要忘记const方法的字符串参数的关键字.

请注意,应该使用指针的正确方法

newURL.Append('http://')^.Append('www.thehost.com')^.Append(...

但实际上Delphi编译器非常聪明,可以隐式添加^符号.

有了这个技巧,您不必创建也不必释放您的newURL实例.请注意,只有引用计数参数(字符串,变体,接口)才会在堆栈上初始化:整数或双精度将是纯随机的.

这正是我用于在SynProject文档工具中创建一些RTF内容的地方(至少在第一个版本中,现在我使用的是类而不是记录,因为我想添加继承).

Answer 2

如果您使用像记录这样的值类型，那么您需要将最终返回的结果分配给变量：

newURL := newURL.Append('http://').Append('www.thehost.com');

如果您使用类实例之类的引用类型，那么您可以使用您在问题中使用的语法。

引用类型方法将数据类型视为可变的，而对于值类型，最好实现不可变的数据类型。