TStringList最后一个换行怎么去掉获取不要

Question

具体看代码
   var
   i : integer;
   aStrList : TStringList:
begin
  aStrList := TStringList.create;
  for i:= 0 to 10 do begin
    aStrList.add(inttostr(i));
  end;
end;得到的结果最后有一个换行，怎么去掉呢，不要最后一个空白的换行。

Answer 1

没有换行，放到MEMO里面显示是有个换行。
你可以看看aStrList.count

Answer 2

你可以add到ComboBox里边看看，没有换行的

Answer 3

如果你使用AStrLst.Delimiter;得到的字符串是没有换行符的。

Answer 4

说错了，是AStrLst.DelimitedText;这个字符串的末尾是没有Delimiter的

Answer 5

补充一下，TStringList默认的Delimiter是逗号（ACSII：$2C）.

Answer 6

大家 贴这个代码看看就知道了 var
  i : integer;
  aStrList : TStringList;
begin
  aStrList := TStringList.create;
  for i:= 0 to 10 do begin
  aStrList.add(inttostr(i));
  aStrList.SaveToFile('c:\1.txt');
  end;
end;

Answer 7

大家 贴这个代码看看就知道了 var
  i : integer;
  aStrList : TStringList;
begin
  aStrList := TStringList.create;
  for i:= 0 to 10 do begin
  aStrList.add(inttostr(i));
  aStrList.SaveToFile('c:\1.txt');
  end;
end;
我可能没说清楚，我说的是最后的那个回车符

Answer 8

用ReplaceStr，回车好像是#13吧，把它替换成空就行了