有没有办法让tstringlist.commatext不用引号转义逗号?

1. 构建一个“不太可能的字符”数组:不可键入 阿西 , 艾斯 甚至是不可打印的# 129,141,143,144 .
2. 确认你没有第一个不太可能出现在你的 StringList.CommaText . 或者不太可能移动到下一个,直到你得到一个在你的 字符串列表.commatext . (断言你找到了一个)
3. 使用这个不太可能的字符作为 QuoteChar 对于你的字符串列表
4. 得到 StringList.DelimitedText . 你会得到 夸特尔 围绕函数参数,如: result := Func1(x, y, †Func2(a, b, c)†);
5. 更换不太可能的 夸特尔 (这里) 阿西 )通过空字符串…

你可以设定 QuoteChar 作为一个空间,您只需要在输出中获得一些额外的空间,这通常是可以的,因为生成的代码通常看起来不漂亮。不过,字符串文字会受到影响;它们会插入额外的空格,从而更改字符串的值。

Free Pascal's TStrings class 使用 StrictDelimiter 控制在读取 DelimitedText 财产。当它的时候 真 ,引用根本不发生。也许德尔菲对待这个属性的方式是一样的。

编写自己的方法导出 TStringList 一个字符串。

function MyStringListToString(const AStrings: TStrings): string;
var
    i: Integer;
begin
    Result := '';
    if AStrings.Count = 0 then
        Exit;
    Result := AStrings[0];
    for i := 1 to AStrings.Count - 1 do
        Result := Result + ',' + AStrings[i];
end;

太明显了吗?-)

或者,如果您设置 StringList.QuoteChar 到 #0 然后叫 StringList.DelimitedText ?

我们编写了一个tstringlist的后代类,其中重新实现了delimitedtext属性。您可以从原始实现中复制大部分代码。

使用ansiextractQuotedStr的Unicode版本删除引号怎么样?

var
l列表:t列表;
s,loutput:字符串;
开始
llist:=tstringlist.create;
尝试
添加(“x”);
添加(“y”);
l列表添加(‘func2(a,b,c)’);
因为S在L第一个
LoutPut:=LoutPut+S+',';
设定长度(Loutput,长度(Loutput)-2);
m1.addline('结果:=func1('+loutput+')');
最后
免费的;
结束;
结束;

有同样的问题,下面是我如何解决的:

s := Trim(StringList.Text)

仅此而已;