Delphi中判断 TEXT1不能为空的语句该怎么写。

小弟初学DelphiDelphi中判断想请问下 TEXT不能为空的语句该怎么写。

2024-11-06 11:13:09

推荐回答（5个）

回答（1）：

要是由一个按钮的话，你首先可以把Tbutton 的enable的属性设置为 false ，然后在 edit 的change事件中写
procedure TForm1.Edit1Change(Sender: TObject);
begin
button1.Enabled:=edit1.Text<>'';
end;

回答（2）：

EX:
//比如是Edit这个文本框
if SameText(Edit1.Text,'') then // SameText是不区别大小写的
ShowMessage('XX不可以为空') //给出提示
else
begin
//这里写，如果有值的处理,
end;
再说下可以在Click事件去写,
也可以在Edit1的Change的事件去写

回答（3）：

如果你愿意，你也可以这样写：
if Edit1.text='' then
showmessage('不能为空哦');

回答（4）：

if Trim(Edit1.Text) = '' then
begin
showmessage('Edit1不能为空');
Edit1.setfouce；
end;

回答（5）：

if Trim(Text1.Text)='' then ShowMessage('Text1不能为空!');