delphi TStringList的DelimitedText的空格问题

本文整理自网络，侵删。

 
TStringList的DelimitedText的空格问题


如果DelimitedText的字符串中有空格，TStringList遇到空格会进行自动换行，而这显然不是我们想要的结果。
经测试发现D7~D10.2.2都是这样的，然而这却不是TStringList的BUG。
解决这个问题的方法需要修改classes.pas的源码。
procedure TStrings.SetDelimitedText(const Value: string);
var
P, P1: PChar;
S: string;
begin
BeginUpdate;
try
Clear;
P := PChar(Value);
while P^ in [#1..' '] do
{$IFDEF MSWINDOWS}
P := CharNext(P);
{$ELSE}
Inc(P);
{$ENDIF}
while P^ <> #0 do
begin
if P^ = QuoteChar then
S := AnsiExtractQuotedStr(P, QuoteChar)
else
begin
P1 := P;
// while (P^ > ' ') and (P^ <> Delimiter) do // by cxg
while (P^ > '') and (P^ <> Delimiter) do
 

相关阅读 >>

Delphi idhttp下载html的代码(含错误处理)

Delphi 从网页里下载图片的程序

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi通过loadlibrary调用其他动态库

Delphi 合并文本行的函数

Delphi 文件/流的加密解密方法

Delphi firedac 的recordcount 相关测试 记录

Delphi数据库实现从最后一条记录向上查询至首记录

Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>

Delphi调用百度语音识别服务

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TStringList的DelimitedText的空格问题