郁闷，有问题

Question

如何判断Edit控件是否有输入和没有输入？
我加了一个edit的控件，但是我怎样才能知道它有没有输入？我的意思是说：EDIT控件有输入时，必须输入一些数据
没有输入有二种情况1：输入全是空格。2：输入一些数据后用BACKSPACE删除了
以上都会改变Edit1.Tag标志啊。但问题在于我如何知道
Edit1里是数据还是空格（二个空格和三个空格是不能用EDIT.TEXT<>''来判别的，它只能判别一个空格）

Answer 1

trim(edit1.text)取消空格就可以了！

Answer 2

length(Edit.Text)不是可以判断长度吗
var
i:Integer；if Edit.Text<>'' and Trim(Edit.Text)='' then
begin
    i:=Length(Edit.Text)；
    showMessage('有'+IntToStr(i)+'个空格'）；
end
else if Edit.Text='' then
    showmessage('没有输入'）；

Answer 3

var
  st:string;
begin
 st:=edit1.Text ;
 while(pos(' ',st)>0) do
  delete(st,pos(' ',st),1);
 if length(st)>0 then 有输入 else 没有输入;
end;

Answer 4

在OnChange事件中
Showmessage('你已经输入了数据！');