if memo1.Lines.Count>0 then
   ....

解决方案 »

  1.   

    if memo1.text <> '' then
    begin
    ...
    end;
      

  2.   

    if TRIM(MEMO.TEXT)<>'' then
      

  3.   

    var ss:String;
    begin  ss:=memo1.lines.text;
      if ss='' then 为空
      else  不为空end;或者
      if memo1.lines.text='' then 为空
      else  不为空
      

  4.   

    var ss,ss2:String;
        
    begin
      ss2:='你的文字';
      ss:=memo1.lines.text;
      if pos(ss2,ss)>0 then 包含
      else  不包含
    end;