Question

delphi 求edit文本以邮箱的书写方式控制字符的输入代码？

控件：button1和edit1。 如果edit1.text:='xxxx@xxxxxx'; 点击button1，showmessage('正确'); 如果edit1.text:='xxxxxxxxxx'; 点击button1，showmessage('不正确');

Answer 1

procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin s:=edit1.Text; i:=Pos('@',s); if i<>0 then begin showmessage('正确'); end else begin showmessage('不正确'); end; end;