怎样知道一串字符串中有分行？

Question

从一个数据库中读出的记录（MEMO型），现在我想知道它一长串字符中是否有分行？请问该怎么做？我用pos(记录,#13#10)>0，可是不行。为什么？谢谢。该怎样解决？

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  AStringList: TStringList;
begin
  AStringList := TStringList.Create;
  AStringList.Assign(Memo1.Lines);  for i := 0 to Length(AStringList.TEXT)  do
  begin
    caption := caption + AStringList.TEXT[i];
    if (AStringList.TEXT[i]=#13) and
       (AStringList.TEXT[i+1]=#10) then
    BEGIN
      showmessage('YES');
      break;
    end;
  end;end;

Answer 2

换行回车为#13
  Memo1.Text:=StringReplace(Memo1.Text,#13,'',[rfReplaceAll])