Type
  TReadWriteSystemCard = Class           
  Private
    Procedure TShowErrorInfo(i_Error: Integer);
    Procedure TGetErrorInfo(i_Error: Integer; Var str_Error: String);
    Function GetCommID(str_Comm: String): Integer;
  Public
    Constructor Create();
    Function TGetCardName(Var str_Name: String): Boolean;
    Function TJudgeCardType():Boolean;
    Function TMadeSystemCard(ApplyArea: PApplyArea): Boolean;
    Function TReadSystemCard(ApplyArea: PApplyArea; ReturnArea: PReturnArea): Boolean;
    Function TRecyclingSystemCard(): Boolean;
    Function TRecyclingNotSystemCard(str_Pin: String): Boolean;
  End;


Var
  Rwsys: TReadWriteSystemCard;
  CommHandle: THandle;


 uses UApplicationFunctions,USetupSystemParam,UFrmToolsCard01;

Constructor TReadWriteSystemCard.Create;
Begin
  CommHandle := 0;
End;


Initialization
  Rwsys := TReadWriteSystemCard.Create;
Finalization
  Rwsys.Free;
End.

谁能给我解释一下rwsys这个变量什么意思啊  尤其是Rwsys := TReadWriteSystemCard.Create;
和 Rwsys.Free;这两句是什么意思 啊

Rwsys: TReadWriteSystemCard;


rwsys 就是TReadWriteSystemCard类型的一个实例.


Rwsys := TReadWriteSystemCard.Create;//就是创建,类似于申请空间.

在delphi 里面 手动创建 就要手动释放.rwsys .free 就是释放

//APP初始化
Initialization：
Rwsys := TReadWriteSystemCard.Create; //这个是动态创建，申请空间

//APP 释放空间
Finalization：
wsys.Free;  //释放申请空间