TStringList的DelimitedText的空格问题
2024-09-01 20:23:15
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
最新文章
- DB2 中文排序问题
- matlab 获取鼠标位置
- vmware的安装
- Git CMD - config: Get and set repository or global options
- Tomcat 7 Connector 精读(2) CoyoteAdapter
- mfc开发问题_v1
- Android后台执行的定时器实现
- php json_encode与json_decode详解及实例
- 如何推翻JAVA的统治地位?
- Array Queries CodeForces - 797E
- ES5与ES6的小差异
- Java学习笔记32(集合框架六:Map接口)
- 机器人学 —— 轨迹规划(Artificial Potential)
- Python--异常处理和断言
- scala分析数据作图
- [lr] 矫正白平衡
- Python网络编程(Sockets)
- @Retention(保留) 此注解用于运行时候(反射)时候使用 如果不使用的话 在反射时候无法获取到注解的值
- C语言入门语法
- 设计模式之笔记--抽象工厂模式(Abstract Factory)