Question

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

小弟初学Delphi

Delphi中判断 想请问下 TEXT不能为空的语句该怎么写。

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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