delphi7开发的串口调试助手
Function FileLenght(sFn:String):Integer; Var iFileHandle: Integer; begin {$I-} Result:=0; if not FileExists(sFn) then Exit; iFileHandle := FileOpen(sFn, fmOpenRead); try Result:=FileSeek(iFileHandle,0,2); finally FileClose(iFileHandle); end; end; procedure TFrmCommSetup.ShowTex
用户评论
qqplumbing16193 2020-09-20 08:44:33
很有用,但是好像少个库