各位先進好！ 我有一個連接鍵盤口的Scaner，用於掃描書籍的Bar code（條形碼），我現在想對通過鍵盤輸入，傳送到Edit的內容，與SCaner自動傳送到Edit的內容做不同處理. 我曾考慮用時間區分，因為手工輸入十幾個數字，總要花費幾秒，而用Scaner不超過2秒，但不知道該如何實現。 請問各位先進，此問題該如何考慮？

用時間怎麽判斷的？

單就時間而言 你可以在user按下第一個button時，也就是第一次觸發onkeydown時 讀取一次系統時間 等到全部輸入完時，再讀一次 這樣一來，就可比對時間差 因為你要的時間不是ms，不必很精細，所以系統時間就可以了

感謝前輩turboted的回應！ 經過實際的測試，用時間來區分鍵盤輸入與Scaner輸入是不行的，原因是有時持Scaner操作延遲，或是Bar Code 不清楚，所延長的時間與鍵盤輸入所需時間差不多，不好區分！

其實你可以參考turboted所說的,用時間間隔,做長度比對 比如2個系統時間內(1/18.秒)字串長度的變化超過5個字,那就是SCANER掃近來的資料.... 或者是看看字串最後一個字...是不是'\r'換行符號(我用RS232的Scaner 會在字串尾加一個'\r')    這2種方法試試看...

Hi！jimmy and you  我試了第二種方法，在 >，不知能不能給出例子，謝謝！

各位先進好！  我現在在OnKeyDown時開始計時，如果Length（Edit‧text）=13時停止計時，然後我試了一下，不管是通過Keyboard輸入，還是通過Scaner花費的時間都為0 ，不知問題出在何處。 如圖所示：      Code 如下： procedure Timedelay(DT:dword); var tt:dword; begin tt:=getTickCount(); while getTickCount()-tt

那是TimeStart記錄的時間, 離後面要計算的時間 太短了... 修正之後供您參考///

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
TimeStart:Longword=0;
begin
 if Length(Edit1.Text)=1 then
    TimeStart:=GetTickCount;
  if Key=VK_Return then
  begin
    showmessage(inttostr(timestart) #13 inttostr(gettickcount) #13 inttostr(GetTickCount-TimeStart));
  end;
end;

如Pedro兄所言！  見下面兩圖比較（Scaner Vs Keyboard） ：  1） 2） 另外，請問 const TimeStart：Longword=0； 這句的作用是什麼？ 我僅改動為 var TimeStart：Longword； 計時結果（用Scaner輸入）如下圖：

mathewzhao: 請問這樣處理的目的為何,說出來,也許有其它方法可解

這是把TimeStart宣告成靜態變數, 也就是在重覆進入該段函式裡, TimeStart值不會受Delphi重新配置及清空. 若改為var TimeStart，情況是最後一次進入 keypdown時，並未執行到if xxx then TimeStart 所以TimeStart值是未受信賴的. >const >TimeStart：Longword=0； >這句的作用是什麼？

提供另一個方向給你參考: 從 Barcode Reader 下手, Reader 可以設定前置碼及後置碼 比如說設定前置碼為 STX(#2) ,後置碼為 ETX(#3),那麼 Reader 讀到 123 時會送出 #2 '123' #3 ,程式就可以加以判斷了. 至於Reader 的設定方式,請參照 Reader 的手冊.

Hi！ cocodi前輩 這樣處理的目的是因為有一些舊書， 1）如果BarCode 能讀出，則直接存資料庫 2）如果BarCode 不能讀出，用手工輸入Barcode數值，加一個Flag後存入資料庫。 即要區分直接讀出和手工輸入的Barcode。 Hi！weber前輩： 感謝你的指引，由於我的Scaner 只有一個'快速查閱'的說明，並無BarCode Reader，所以無法測試。 但謝謝你的回應與指點！

還有一個比較好的辦法 就是判斷每個鍵輸入的間隔時間 如果是Scanner傳來的應該每個鍵的間格時間很平均 將所有的時間間格算出Mean(平均值),再將每個時間間格與此平均值去算出SD(標轉誤差), SD值小於一定的數值就是Scanner,否則就是鍵盤 SD=(abs(T1-MEAN) abs(t2-mean) ...abs(tn-mean))/(n) 您看這個辦法如何? ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

weber兄說的應該是很可行的,你可能以barcode reader上的modal-no找看看是否有網點可download該設定本, 要不然還有個笨方法,通常BarCodeReader 讀取成功後會送 #13 可於onKeypress 內判斷, 但若是自行輸入的話,放個button 來觸發事件吧? 看看是否還有其它更好的方法

Left side cannot be assigned to 

引言:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); const TimeStart:Longword=0; begin if Length(Edit1.Text)=1 then TimeStart:=GetTickCount; if Key=VK_Return then begin showmessage(inttostr(timestart) #13 inttostr(gettickcount) #13 inttostr(GetTickCount-TimeStart)); end; end;

Left side cannot be assigned to 錯誤信息

引言:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); const TimeStart:Longword=0; begin if Length(Edit1.Text)=1 then TimeStart:=GetTickCount; if Key=VK_Return then begin showmessage(inttostr(timestart) #13 inttostr(gettickcount) #13 inttostr(GetTickCount-TimeStart)); end; end;