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