delphi 串口字符串转换为整型数据函数（copy）

例如“COM1”转换以后为“1”，“COM2”转为以后为2

function ComStrToInt(AComStr:string):smallint;

var

    mLen: integer;

    mResult: string;

begin

    mLen := Length(AComStr);

    mResult := Copy(AComStr,4,mLen-3);

    Result := StrToInt(mResult);

end;

 

转载于:https://www.cnblogs.com/gezi888/archive/2010/07/07/1773170.html