<!--CodeS-->
procedure TF_bs10.ComPort1RxChar(Sender: TObject; Count: Integer);
var
rStr, cStr : String;
cc : Integer;
begin
ComPort1.ReadStr(rStr, Count);
mcard := mcard + rStr;
if (Pos(#03,mcard) <> 0) then
begin
E_jcyymm.Text := Copy(mcard,19,4);
cStr := Copy(mcard,2,30);
E_jcno.Text := '';
for cc := 1 to Length(cStr) do
begin
if Copy(cStr,cc,1) = '=' then Break;
E_jcno.Text := E_jcno.Text + Copy(cStr,cc,1);
end;
Application.ProcessMessages;
Card_One_Process;
end;
<!--CodeE-->
<!--CodeS-->
procedure TF_bs10.ComPort1RxChar(Sender: TObject; Count: Integer);
var
rStr, cStr : String;
cc : Integer;
begin
ComPort1.ReadStr(rStr, Count);
mcard := mcard + rStr;
if (Pos(#03,mcard) <> 0) then
begin
E_jcyymm.Text := Copy(mcard,19,4);
cStr := Copy(mcard,2,30);
E_jcno.Text := '';
for cc := 1 to Length(cStr) do
begin
if Copy(cStr,cc,1) = '=' then Break;
E_jcno.Text := E_jcno.Text + Copy(cStr,cc,1);
end;
Application.ProcessMessages;
Card_One_Process;
end;
<!--CodeE-->