Question

Delphi 的 Memo组件如何判断是否为空字符？

。。。如题如果
if memo1.lines.strings[0]='' then
ShowMessage('空'); 这样的话只能判断第一行是不是为空呀 另外问下 Edit 组件能不能多行显示的？

Answer 1

Memo 控件的 Lines 属性是 TStrings 类型，Lines.Strings[0] 是获取第一行文本内容，如果想要判断整个 Memo 的文本内容是否为空，可以使用 Lines 的 Text 属性，示例如下：

procedure TForm1.btn1Click(Sender: TObject);
begin
  if mmo1.Lines.Text.IsEmpty then//或者 if mmo1.Lines.Text = '' then
  begin
    ShowMessage('当前内容为空。');
  end else
  begin
    ShowMessage(mmo1.Lines.Strings[0]);
  end;
end;

运行截图：

此外，Edit 控件用于单行文本的编辑，不支持多行文本（换行符无效）。

Answer 2

Edit不能多行显示的Memo的话，Lines有个属性是所有行的字符串我这个机器没装delphi，没法给你查是哪个不过，你也可以用if (memo1.lines.count <= 1) and (memo1.lines.strings[0] = '') then来判定