简单小问题

Question

想判断memo1.Lines的内容是否为空，如果为空则弹出窗体提示。
在delphi中应该怎样写？初学delphi请大家帮助！

Answer 1

if memo1.lines.count = 0 then
  showmessage ('empty');

Answer 2

var
  i:integer;
//...
for i:=0 to memo1.Lines.Count-1 do
  if Trim(memo1.Lines[i])='' then
    showmessage('第'+inttostr(i)+'是空的');

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
   iCount:integer;
   TmpStr:string;
begin
   iCount:=Memo1.Lines.Count-1;
   for i:=0 to iCount do
   begin
       TmpStr:=Memo1.Lines[i];
       if TmpStr = '' then
           Application.MessageBox(PChar(IntToStr(i+1)+'行为空'),PChar('title'),MB_OK);
   end;
   ModalResult:=mrCancel;
end;