function Validate: boolean;
var
iPos: integer;
begin
iPos := Pos('@', Edit1.Text);
result := (iPos > 1) and (iPos < Length(Edit1.Text)); //前后都不能为空
end;
to Adnil:我实在是太菜了，下面是我原来的代码，可以告诉我你那段具体放哪里吗？
procedure TfrmNewCustomer.BitBtn1Click(Sender: TObject);
begin
try
with DM_CIS.spNewCustomer do
begin
Parameters.ParamValues['@ZipCode'] := Edit7.Text;
end；
procedure TfrmNewCustomer.BitBtn1Click(Sender: TObject);
var
iPos: integer;
begin
try
with DM_CIS.spNewCustomer do
begin
iPos := Pos('@', Edit7.Text);
if (iPos <= 1) or (iPos = Length(Edit7.Text)) then
begin
showmessage('error');
exit;
end;
Parameters.ParamValues['@ZipCode'] := Edit7.Text;
end；
