录入多条不含4的字符串的记录,为什么不行
var
i:integer;
begin
table2.Append;
for i:=strtoint(dbedit3.text) to strtoint(dbedit3.Text)+strtoint(edit1.Text)-2 do
begin
if pos('4',dbedit3.text)<>0 then
begin
dbedit1.Text:=edit3.Text;
dbedit2.Text:=edit2.Text;
dbedit7.Text:=dbedit3.Text;
dbedit8.Text:=datetostr(date());
dbedit9.Text:=edit2.Text;
dbedit10.Text:=edit4.Text;
dbedit4.Text:='未审批';
dbedit5.Text:=datetostr(date());
dbedit6.Text:=edit4.Text;
table1.Append;
table2.Append;
//table1.Refresh;
dbedit3.Text:=inttostr(i+1);
dbedit7.Text:=dbedit3.Text;
dbedit8.Text:=datetostr(date());
dbedit9.Text:=edit2.Text;
dbedit10.Text:=edit4.Text;
dbedit4.Text:='未审批';
dbedit5.Text:=datetostr(date());
dbedit6.Text:=edit4.Text;
dbedit1.Text:=edit3.Text;
dbedit2.Text:=edit2.Text;
table1.post;
table2.Post;
end;
end;
Next;
edit1.Clear;
edit2.Clear;
edit3.Clear;
dbedit3.Clear;
showmessage('发卡成功');
end;