Question

delphi form1 上有EDIT1控件响应键盘输入事件，当键盘输入后，扫描枪输入就不行。

delphi form1 上有EDIT1控件响应键盘输入事件，当键盘输入后，扫描枪输入就不行了
部分代码如下
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
InputLen = 14; //扫描枪扫描一维码 13位
var
iFinish: DWORD;
begin
if sInput = '' then
iStart := GetTickCount();
sInput := sInput + Key;
if Length(sInput) >= InputLen then
begin
iFinish := GetTickCount();
if (iFinish - iStart) / Length(sInput) < 200 then
begin
label1.caption := '成功扫码' + sInput;
sInput := '';

end
else
begin

end;
sInput := '';
end;
end;

当我一直扫码，没有问题，label1都显示正常扫码内容
但是我只要手动在Edit1里输入查询数据回车后，再扫描就是不正常的，要么没有，要么乱的。
请问怎么解决？

Answer 1

下断跟踪一下。