kzsznewr.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 39 行

unit KzSzNewR;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, SPComm, ExtCtrls, ComCtrls;

type
  TfrmKzSzNewR = class(TForm)
    lblMsg: TLabel;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
  private
    { Private declarations }
    tsData :TStrings;
  public
    { Public declarations }
    sTxtFile :string;
    nCommPort :integer;
    function ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
  end;

var
  frmKzSzNewR: TfrmKzSzNewR;

implementation

uses KzSzNew;

{$R *.DFM}

function TfrmKzSzNewR.ReadData(tsMachNo:string; tnBaudRate:integer):Boolean;
var tnMach,tnCount :integer;
	ts :Array[0..1000] of char;
begin
  Result :=False;
  tnMach :=StrToInt(tsMachNo);
  lblMsg.Caption :='タ