我有一個讀卡設備，卡面中有一串數字，同時在軟體上有A ，B 兩個輸入框，當我通過外置的讀卡設備讀卡的時候，自動向A 里面輸入卡片內的資訊。當輸入完成的時候，B 框內，根據A 中那串數字的第8位去判斷，例如。
1111111111 10個1 ，，第八位是1 ，則在B 中自動輸入鼠
2222222222 10個2 ，，第八位是2. 則在B 中自動輸入牛
諸如此類。。
另外由于A 框是可編輯的，，那么也可以通過手動輸入的。那么當數字大于10位或者小于10位的時候，B 中都不顯示任何內容。
當通過讀卡設備的時候，由于A里面的 長度肯定是10位，那么在讀入后，B 會自動顯示。
求大神給個思路
uj5u.com熱心網友回復：
在A的onchange事件中寫B應該顯示的內容。uj5u.com熱心網友回復：
1、插入卡的事件中，產生A中讀入字符；2、A的OnChange事件：
procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
i:integer;
begin
if Length(Edit1.Text)=10
then begin
i:=StrToInt(Copy(Edit1.Text,8,1));
Case i of
0: Edit2.Text:='0';
1: Edit2.Text:='鼠';
2: Edit2.Text:='牛';
3: Edit2.Text:='3';
4: Edit2.Text:='4';
5: Edit2.Text:='5';
6: Edit2.Text:='6';
7: Edit2.Text:='7';
8: Edit2.Text:='8';
9: Edit2.Text:='9';
end;
end
else Edit2.Text:='';
end;
uj5u.com熱心網友回復：
謝謝大神，但是你最后好像少了一個END
uj5u.com熱心網友回復：
不少end。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/86046.html
標籤：語言基礎/算法/系統設計
上一篇：高分求Windows WSAIoctl 的簡單完整使用示例，要 SIO_FLUSH 的，能在win10上編譯運行的，非常感謝