我想做一个函数:
判断text1.text是否为空,空就提示出错,不再执行下面的代码了,要用户再写。
不为空就执行代码。

解决方案 »

  1.   

    procedure Form1.Edit1Change(Sender: TObject)
    begin
      if (Sender as TEdit1).Text = '' then exit;
      ...
    end;
      

  2.   

    同意楼上的意见
    if edit1.text='' then
    begin
    showmessage('出错!');
    end
    else
    ........
      

  3.   

    exit;
    我试过了,是不行的
    因为有多个控件判断时就会弹出好多个出错的窗口的
    同样,有时对于showmodal显示的窗口如出错也会自动关闭的。
      

  4.   

    给你给最经典的
    var 
      label x;
    begin
    x:    if edit1.text='' then 
          goto    x;//呵呵在这里呀
    end;
      

  5.   

    procedure Form1.Edit1Exit(Sender: TObject)
    begin
      if Edit1.Text = '' then 
      begin
        Edit1.SetFocus;
        Exit;
      end;
    end;
      

  6.   

    procedure Form1.Edit1Exit(Sender: TObject)
    begin 
      if Edit1.Text = '' then 
      begin 
        Showmessage('Edit1不能為空,請輸入!');
        Edit1.SetFocus;
      Exit;
      end; 
    end;
      

  7.   

    procedure TForm1.Edit1Exit(Sender: TObject);
    begin
       if edit1.Text='' then
       showmessage('错误');
    end;
      

  8.   

    有必要这么做吗?
    有的话,试试ActiveManager
      

  9.   

    var
      i: integer;
    begin
      for i := 0 to form1.ComponentCount - 1 do
      begin
        if TEdit(form1.Components[i]).Text = '' then
        begin
          TEdit(form1.Components[i]).SetFocus;
          Showmessage('error!');
          exit;
        end;
      end;
      

  10.   

    var
      bNull: Boolean;
    begin
      bNull := False;
      bNull := bNull or (Edit1.Text='');
      bNull := bNull or (Edit2.Text='');
      bNull := bNull or (Edit3.Text='');
      bNull := bNull or (Edit4.Text='');
      //如果此时 bNull=True ,说明上面四个Edit至少有一个为''
      if bNull then ...
    end;
      

  11.   

    if Trim(Edit1.Text)<>'' then
       begin
        //do something
      end
      else
      begin
       MessageBox(handle,'输入为空!!','提示',MB_OK+MB_ICONINFORMATION);
       Abort;
      end;
    try it again!!!
      

  12.   

    if length(Edit1.Text)=0 then
    begin
      showmessage('输入为空');
      abort;
    end;
      

  13.   

    procedure Form1.checkedit (target: Tedit)
    begin
      if target.Text = '' then 
       abort
    end;
      

  14.   

    procedure Form1.checkedit (target: Tedit)
    begin
      if trim(text1.text) = '' then begin
       abort
    end;
      

  15.   

    procedure Form1.checkedit (text1: Tedit)
    begin
        if trim(text1.text) = '' then begin
            showmessage('text1不可以为空!');        abort;
      end;
    end;