gpt4 book ai didi

delphi - 覆盖 TStringList.Delimiter

转载 作者:行者123 更新时间:2023-12-01 18:05:25 25 4
gpt4 key购买 nike

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 中是私有(private)的。所以我不能覆盖它们。想知道是否有办法实现我想要的?

编辑2我通过添加解决了它

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;

因此,如果有人没有更聪明的方法,我认为这个问题已经解决了。

最佳答案

确实还有另一种解决方案:

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

作为一个缺点,各个条目没有被引用。

关于delphi - 覆盖 TStringList.Delimiter,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35055429/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com