Delphi：换行符的字符值

我的答复如下：

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 

如何在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;

---

您不需要为此使用

DelimitedText

。您只需直接指定给

文本

，即可将换行符视为分隔符

{$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,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 5. UID、卡号、Pin、密码、组、开始时间、结束时间、名称、超级授权 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，婴儿朗尼·图恩斯，0