文本框 验证不能为空

Question

gServer,eOwner,eOffice: TEdit;
eServer := TEdit.Create(Page);
eServer.Top := stServerADD.Top;
eServer.Width := Page.SurfaceWidth - stServerADD.Width - ScaleX(200);
eServer.Left := stServer.Left + stServerADD.Width + ScaleY(20);
eServer.Text := '名称';
eServer.Parent := Page.Surface;我第一次做Delphi,我声明了好多文本框，请问如何判断这些文本框不能为空？？？

Answer 1

在确认的时候：
if trim(eServer.text)='' then
  不行！

Answer 2

var
   i:integer;
begin
for i:=1 to form1.ComponentCount do
   begin
   if form1.Components[i-1] is TEdit then
      begin
       if  TEdit(form1.Components[i-1]).text='' then
           ShowMessage('EXIT');
      end;
   end;
end;

Answer 3

var
   i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
   begin
   if form1.Components[i] is TEdit then
      begin
       if  Lengh(Trim(TEdit(form1.Components[i]).text))=0 then
           ShowMessage('EXIT');
      end;
   end;
end;

Answer 4

判断文本框空值（是否被创建）:
if Edit1 <> nil then
begin
  MessageBox(0, '这是一个没有被创建的文本框', '提示', 0);
end;判断文本框的内容空值：
楼上的几位就可以