Delphi：换行符的字符值答案

【问题标题】：Delphi : Char value for newlineDelphi：换行符的字符值
【发布时间】：2016-02-21 04:57:54
【问题描述】：

我有一个 AnsiString 如下：

UID,CardNo,Pin,Password,Group,StartTime,EndTime,Name,SuperAuthorize
1,0,1,,0,0,0,Johnny Test,0
2,0,2,,0,0,0,Harry Potter,0
3,0,3,,0,0,0,Scooby Doo,0
4,0,4,,0,0,0,Baby Lonney Toons,0

如何在名为 Users 的 TStringlist 中为新行添加分隔符，以便获得：

Users[1] : 1,0,1,,0,0,0,Johnny Test,0
Users[2] : 2,0,2,,0,0,0,Harry Potter,0
Users[3] : 3,0,3,,0,0,0,Scooby Doo,0

这是我的代码：

procedure TFRTest.GetInfo(sbuffer : AnsiString);
var
    userIndex : Integer;;
    Users  : TStringList;
begin

    Users := TStringList.Create;
    Users.Delimiter := Char(10) ;
    try
         Users.DelimitedText :=  sbuffer;

         for userIndex := 0 to Users.Count -1 do
         begin
             ShowMessage(Users[userIndex]);
         end;
    finally
         Users.Free;
    end;

【问题讨论】：

标签： delphi delphi-xe2

【解决方案1】：

您不需要为此使用DelimitedText。您可以简单地直接分配给Text，这会将换行符视为分隔符。

{$APPTYPE CONSOLE}

uses
  Classes;

const
  Str =
    'UID,CardNo,Pin,Password,Group,StartTime,EndTime,Name,SuperAuthorize' + sLineBreak +
    '1,0,1,,0,0,0,Johnny Test,0' + sLineBreak +
    '2,0,2,,0,0,0,Harry Potter,0' + sLineBreak +
    '3,0,3,,0,0,0,Scooby Doo,0' + sLineBreak +
    '4,0,4,,0,0,0,Baby Lonney Toons,0';

var
  i: Integer;
  StringList: TStringList;

begin
  StringList := TStringList.Create;
  try
    StringList.Text := Str;

    Writeln(StringList.Count);
    for i := 0 to StringList.Count-1 do begin
      Writeln(StringList[i]);
    end;
  finally
    StringList.Free;
  end;

  Readln;
end.

输出：

5 UID、卡号、密码、密码、组、开始时间、结束时间、名称、超级授权 1,0,1,,0,0,0,约翰尼测试,0 2,0,2,,0,0,0,哈利波特,0 3,0,3,,0,0,0,史酷比,0 4,0,4,,0,0,0,Baby Lonney Toons,0

【讨论】：