问题求助

Question

一个string类型的字符串，它由很多行组成，怎么求得有多少行？
同时求出每行的字符串，以下标形式访问。
也就是这样：字符串:"fdsfsadfdscnncncnd#13fdascdnfdsjf#13fsjdkfjsd fsdkfds#13fdskcdnmcndjnafdfds#13"
其中#13是换行符，那么行数就是#13的个数,怎么求？
下标形式也就是rows[0]="fdsfsadfdscnncncnd",rows[1]="fdascdnfdsjf",rows[2]="13fsjdkfjsd fsdkfds"...
最好用delphi给出代码。我对delphi不太熟，工作遇到了。谢谢各位。

Answer 1

ss:=Tstringlist.create;
ss.text:=你的字符串;
ss[0]就是第1行
ss[1]就是第2行
....
ss.free;

Answer 2

s := 'fdsfsadfdscnncncnd#13fdascdnfdsjf#13fsjdkfjsd fsdkfds#13fdskcdnmcndjnafdfds#13';
与
s := 'fdsfsadfdscnncncnd'+#13+'fdascdnfdsjf'+#13+'fsjdkfjsd fsdkfds'+#13+'fdskcdnmcndjnafdfds'+#13;
是不同的；var
  s: string;
  st: TStringList;
  Row: array of string;
  i: Integer;
begin
  s := 'fdsfsadfdscnncncnd#13fdascdnfdsjf#13fsjdkfjsd fsdkfds#13fdskcdnmcndjnafdfds#13';
  s := StringReplace(s,'#13',#13,[rfReplaceAll, rfIgnoreCase]);
  st:= TStringList.Create;
  st.Text := s;
  SetLength(Row,st.Count);
  for I := 0 to st.Count - 1  do
  begin
    Row[i] := st.Strings[i];
    ShowMessage(Row[i]);
  end;
end;

Answer 3

st.free;