覆盖TStringList.Delimiter

Question

TStringList.Delimiter是TChar。这样就有可能将Delimitertext作为

Test,Test,Test,Test

但我希望有‘和’作为划界者的结果

Test and Test and Test and Test

我当然可以这样解决

s := List[0];
for i := 1 to List.Count - 1 do
  s := s + ' and ' + List[i];

但这样做会更优雅

List.Delimiter := ' and ';
s := List.DelimiterText;

所以我试着用这个代码来覆盖TStringList；

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, Menus, StdCtrls, cxButtons, cxTextEdit,
  cxMemo;

type
  TForm5 = class(TForm)
    cxMemo1: TcxMemo;
    cxButton1: TcxButton;
    procedure cxButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TAttracsStringList = class(TStringList)
  private
    FDelimiter: String;
    procedure SetDelimiter(const Value: String);
    function GetDelimiter: String;
  public
    property Delimiter: String read GetDelimiter write SetDelimiter;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

function TAttracsStringList.GetDelimiter: String;
begin
  Result := FDelimiter;
end;

procedure TAttracsStringList.SetDelimiter(const Value: String);
begin
  FDelimiter := Value;
end;

procedure TForm5.cxButton1Click(Sender: TObject);
var
  vList: TAttracsStringList;
  i: Integer;
begin
  vList := TAttracsStringList.Create;
  try
    vList.Delimiter := ' and ';
    for i := 0 to 3 do
      vList.Add('Test');

    cxMemo1.Text := vList.DelimitedText;
  finally
    vList.Free;
  end;
end;

end.

它不起作用。备忘录得到了结果

Test,Test,Test,Test

我怎么才能解决这个问题？

编辑我现在看到GetDelimiter和SetDelimiter在TStringList中是私有的。所以我不能推翻他们。想知道是否有办法实现我想要的？

Edit2我通过添加解决了它

property DelimitedText: String read GetDelimitedText;

用方法

function TAttracsStringList.GetDelimitedText: String;
var
  i: Integer;
begin
  if Count > 0 then
  begin
    Result := Strings[0];

    for i := 1 to Count - 1 do
      Result := Result + Delimiter + Strings[i];
  end
  else
    Result := '';
end;

因此，如果没有更聪明的方法，我认为这是解决了。

Answer 1

确实有另一种解决办法：

  lst := TStringList.Create;
  try
    for I := 1 to 4 do
      lst.Add('Test');
    lst.LineBreak := ' and ';
    Writeln(lst.Text);
  finally
    lst.Free;
  end;

作为一个缺点，个别条目不被引用。