delphi搜索字符串在流中的位置 function ScanStream(mStream: TStream; mStr: string): Integer; const cBufferSize = $8000; var S: string; T: string; I: Integer; L: Integer; begin Result := -1; if not Assigned(mStream
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
