Delphi之SysUtils单元函数中文翻译.doc

*系统实用例程*Delphi / Kylix 跨平台运行时库(System Utilities)Copyright (c) 1995-2002 Borland Softwrare Corporation*SysUtils单元;1. 常量（Const）1) 文件打开方式$以下用于Linux环境fmOpenRead = O_RDONLY;fmOpenWrite = O_WRONLY;fmOpenReadWrite = O_RDWR;/ fmShareCompat 不被支持fmShareExclusive = $0010;fmShareDenyWrite = $0020;/ fmShareDenyRead 不被支持fmShareDenyNone = $0030;$ENDIF$以下用于MsWindowsfmOpenRead = $0000;fmOpenWrite = $0001;fmOpenReadWrite = $0002;fmShareCompat = $0000 platform; / DOS 兼容模式不portablefmShareExclusive = $0010;fmShareDenyWrite = $0020;fmShareDenyRead = $0030 platform; / 只写在所有平台上都不被支持fmShareDenyNone = $0040;$ENDIF2) 文件属性faReadOnly = $00000001 platform;faHidden = $00000002 platform;faSysFile = $00000004 platform;faVolumeID = $00000008 platform;faDirectory = $00000010;faArchive = $00000020 platform;faSymLink = $00000040 platform;faAnyFile = $0000003F;3) 时间单位HoursPerDay = 24; 每天24小时MinsPerHour = 60; 每小时60分SecsPerMin = 60; 每分钟60秒MSecsPerSec = 1000; 每秒1000毫秒MinsPerDay = HoursPerDay * MinsPerHour; 每天的分钟数SecsPerDay = MinsPerDay * SecsPerMin; 每天秒数MSecsPerDay = SecsPerDay * MSecsPerSec; 每天毫秒数DateDelta = 693594; 每天介于 1/1/0001 和 12/31/1899 之间UnixDateDelta = 25569; 介于TDateTime 基数(12/31/1899) 和Unix time_t 基数(1/1/1970)之间的天数 2. 类型定义（type）TSysCharSet = set of Char; /设置字符类型标准：所有ANSI字符的集合TIntegerSet = set of 0.SizeOf(Integer) * 8 - 1; 设定整数的访问类型：0-31的整数集合 /类型转换/ WordRec使访问一个Word类型变量或者其他16位变量（SmallInt）的高位和低位字节变得更容易WordRec = packed record case Integer of0: (Lo, Hi: Byte);1: (Bytes: array 0.1 of Byte);end;LongRec使访问一个LongWord类型变量或者其它32位变量（Single）高位和低位字变得更容易。LongRec = packed recordcase Integer of0: (Lo, Hi: Word);1: (Words: array 0.1 of Word);2: (Bytes: array 0.3 of Byte);end;Int64Rec使访问一个Int64类型变量或者其它64位变量（Double）高位和低位字变得更容易。Int64Rec = packed recordcase Integer of0: (Lo, Hi: Cardinal);1: (Cardinals: array 0.1 of Cardinal);2: (Words: array 0.3 of Word);3: (Bytes: array 0.7 of Byte);end;/一般数组PByteArray = TByteArray;TByteArray = array0.32767 of Byte;PWordArray = TWordArray;TWordArray = array0.16383 of Word;TProcedure = procedure; /一般程序指针TFileName = type string; /一般文件类型TSearchRec = record /用于搜索记录的结构（由函数 FindFirst, FindNext, 和 FindClose 使用）Time: Integer;Size: Integer;Attr: Integer;Name: TFileName;ExcludeAttr: Integer;$以下用于MsWindows平台FindHandle: THandle platform;FindData: TWin32FindData platform;$ENDIF$以下用于Linux环境Mode: mode_t platform;FindHandle: Pointer platform;PathOnly: String platform;Pattern: String platform;$ENDIFend;TFloatValue = (fvExtended, fvCurrency); 浮点类型格式化代码TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency); FloatToText格式化代码TFloatRec = packed record / FloatToDecimal 结果的记录型结构Exponent: Smallint;Negative: Boolean;Digits: array0.20 of Char;end;TTimeStamp = record /日期和时间的记录结构Time: Integer; 从0：00开始的的毫秒数Date: Integer; 从1/1/0001以后的天的加数 end;TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte); 多字节字符集的字节类型TSysLocale = packed record /本地系统信息记录类型DefaultLCID: Integer;PriLangID: Integer;SubLangID: Integer;FarEast: Boolean;MiddleEast: Boolean;end;$以下用于MsWindows平台TLangRec = packed record /被使用的语言FName: string;FLCID: LCID;FExt: string;end;TLanguages = class /存储系统支持的语言private.Public.end platform;$ENDIF以下用于Linux环境TEraRange = recordStartDate : Integer; / 从12/31/1899 (TDateTime 基数)的全部天数EndDate : Integer; /从12/31/1899 (TDateTime 基数)的全部天数Direction : Char;end;$ENDIFException = class(TObject) /异常private.public.end;ExceptClass = class of Exception;EAbort = class(Exception);EHeapException = class(Exception)privateAllowFree: Boolean;publicprocedure FreeInstance; override;end;EOutOfMemory = class(EHeapException);EInOutError = class(Exception)publicErrorCode: Integer;end;以下用于MsWindows平台PExceptionRecord = TExceptionRecord;TExceptionRecord = recordExceptionCode: Cardinal;ExceptionFlags: Cardinal;ExceptionRecord: PExceptionRecord;ExceptionAddress: Pointer;NumberParameters: Cardinal;ExceptionInformation: array0.14 of Cardinal;end;$ENDIFEExternal = class(Exception)public$以下用于MsWindows平台ExceptionRecord: PExceptionRecord platform;$ENDIF$以下用于Linux环境ExceptionAddress: LongWord platform;AccessAddress: LongWord platform;SignalNumber: Integer platform;$ENDIFend;EExternalException = class(EExternal);EIntError = class(EExternal);EDivByZero = class(EIntError);ERangeError = class(EIntError);EIntOverflow = class(EIntError);EMathError = class(EExternal);EInvalidOp = class(EMathError);EZeroDivide = class(EMathError);EOverflow = class(EMathError);EUnderflow = class(EMathError);EInvalidPointer = class(EHeapException);EInvalidCast = class(Exception);EConvertError = class(Exception);EAccessViolation = class(EExternal);EPrivilege = class(EExternal);EStackOverflow = class(EExternal) end deprecated;EControlC = class(EExternal);以下用于Linux环境EQuit = class(EExternal) end platform;$ENDIF以下用于Linux环境ECodesetConversion = class(Exception) end platform;$ENDIFEVariantError = class(Exception);EPropReadOnly = class(Exception);EPropWriteOnly = class(Exception);EAssertionFailed = class(Exception);$IFNDEF PC_MAPPED_EXCEPTIONSEAbstractError = class(Exception) end platform;$ENDIFEIntfCastError = class(Exception);EInvalidContainer = class(Exception);EInvalidInsert = class(Exception);EPackageError = class(Exception);EOSError = class(Exception)publicErrorCode: DWORD;end;以下用于MsWindows平台EWin32Error = class(EOSError)end deprecated;$ENDIFESafecallException = class(Exception);以下用于Linux环境3. 符号（Signals）外部异常或符号由Delphi RTL默认被转换到语言异常。在Linux下，一个Delphi应用程序安装符号处理机来诱捕原始符号并转换他们。Delphi库默认不安装处理机。所以你要是执行一个标准库，类似Apache DSO, 你想要将符号转换到能够捕获的语言异常，就必须人工安装符号钩，用Delphi RTL提供的接口。对于大多数的库，安装符号处理机是恰当简便的。在初始时间调用HookSignal(RTL_SIGDEFAULT)，在关闭时调用UnhookSignal(RTL_SIGNALDEFAULT)，将会为一组符号安装处理机，Delphi应用程序被RTL正常钩住。有时候会有一些使以上的初始化不能工作的事情。适当的设置一个符号处理机的行为，然后当整理完后恢复到以前状态。如果你有两个库lib1和lib2，lib1安装了符号处理机，然后lib2也安装了一个，如果要恢复符号处理机则那些库就必须以适当的次序卸载，或者符号处理机能够被留在矛盾而致命的地方。为了防止这种可能，允许你无论在何种情况下在外部库中发现这种行为都能较好的管理符号处理机，我们提供了一组4个接口来容许你在紧急事件中剪裁Delphi符号处理机挂钩/脱钩，他们是：InquireSignalAbandonSignalHandlerHookSignalUnhookSignalInquireSignal 允许你看符号处理机的状态，也就是你能发现在你之下抓取它的人。AbandonSignalHandler 告诉RTL从不脱钩一个特定的符号处理机。如果你发现一个符号处理机将要不安全的返回到以前状态就需要使用它。例如，如果前一个符号处理机被一个后来被卸载的库安装。HookSignal/UnhookSignal 设置符号处理机映射某个信号为语言异常。其它的看下面的InquireSignal等注释。constRTL_SIGINT = 0; / 用户中断User interrupt (SIGINT)RTL_SIGFPE = 1; / 浮点异常(SIGFPE)RTL_SIGSEGV = 2; / 分割违背 (SIGSEGV)RTL_SIGILL = 3; /非法指令(SIGILL)RTL_SIGBUS = 4; / 总线Bus 错误 (SIGBUS)RTL_SIGQUIT = 5; / 用户中断(SIGQUIT)RTL_SIGLAST = RTL_SIGQUIT; / 已用于内部，不能用RTL_SIGDEFAULT = -1; / 意味着我们捕获一组符号Means all of a set of signals that the we capture/ normally. 这是当前全部进程/ signals. 你不能传递这个到InquireSignal.type/TSignalState 给定的符号处理机的状态，由InquireSignal送回。看以下InquireSignal。TSignalState = (ssNotHooked, ssHooked, ssOverridden);var如果DeferUserInterrupts设置，我们不能引发SIGINT 、SIGQUIT 这样的异常，而是当信号到达时设置SIGINTIssued或SIGQUITIssued，并且要忍受OS发出的信号。这个引起GUI 应用程序偶然的延迟实际信号处理直到它是安全DeferUserInterrupts: Boolean;SIGINTIssued: Boolean;SIGQUITIssued: Boolean;$ENDIF$以下用于Linux环境constMAX_PATH = 4095; / From /usr/include/linux/limits.h PATH_MAX$ENDIFvar 空字串和null 字符指针.这些常量只为向后兼容而提供。 EmptyStr: string = ;NullStr: PString = EmptyStr;EmptyWideStr: WideString = ;NullWideStr: PWideString = EmptyWideStr;$以下用于MsWindows平台Win32 平台标识符，将会是下列数值之一:VER_PLATFORM_WIN32sVER_PLATFORM_WIN32_WINDOWSVER_PLATFORM_WIN32_NTWin32Platform: Integer = 0; /数值看WINDOWS.PASWin32 OS 版本信息见TOSVersionInfo.dwMajorVersion/dwMinorVersion/dwBuildNumberWin32MajorVersion: Integer = 0;Win32MinorVersion: Integer = 0;Win32BuildNumber: Integer = 0;Win32CSDVersion: string = ; / Win32 OS 以外版本信息字符串见TOSVersionInfo.szCSDVersion4. 实用函数过程1) Win32 OS 版本测试函数function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean;GetFileVersion 返回一个32位的文件的二进制版本数，它一般有助版本号和辅版本号，一般没有release 或build 号。 如果失败，则返回Cardinal(-1)function GetFileVersion(const AFileName: string): Cardinal;$ENDIF2) 货币和日期/时间格式化选项这些变量初始数值用Win32 API 中的GetLocaleInfo 函数从系统注册表取得，每个变量指定常量LOCALE_XXXX的来描述这些初始值CurrencyString 定义浮点数转换为十进制数后的需用的货币符号，初始值来自于LOCALE_SCURRENCY.CurrencyFormat -定义浮点数转换为十进制数后的货币符号的位置和分离程度，可能的值为：0 = $11 = 1$2 = $ 13 = 1 $初始值来自于LOCALE_ICURRENCY.NegCurrFormat 定义负数浮点数转换为十进制数后的货币格式，可能的值为：0 = ($1) 4 = (1$) 8 = -1 $ 12 = $ -11 = -$1 5 = -1$ 9 = -$ 1 13 = 1- $2 = $-1 6 = 1-$ 10 = 1 $- 14 = ($ 1)3 = $1- 7 = 1$- 11 = $ 1- 15 = (1 $)初始值来自于LOCALE_INEGCURR.ThousandSeparator 多于一千时的千分位分离符位于数值的左边，初始值来自于LOCALE_STHOUSAND. #0 值即使有此指示符也不应当输出指示符DecimalSeparator 用于分离一个数的小数部分的整数，其初值来自LOCALE_SDECIMAL. DecimalSeparator 必须是个非零值CurrencyDecimals 货币值中小数点右边的小数位数，初值来自LOCALE_ICURRDIGITS.DateSeparator 分离符：用于分离日期数值的年、月、日部分，初值来自于LOCATE_SDATE.ShortDateFormat 用于将日期型数值转换为适合编辑的短字符串。对日期和时间格式化字符串的完整描述，请查阅FormatDate 函数。短日期格式应当只使用日期分离符和m, mm, d, dd, yy, 和 yyyy 格式特定。初值来自于LOCALE_SSHORTDATE。LongDateFormat -用于将日期型数值转换为适合显示而不是编辑的长字符串。对日期和时间格式化字符串的完整描述，请查阅FormatDate 函数。其初值来自于LOCALE_SLONGDATE。TimeSeparator 用于分离时间型数值的时、分、秒。其初值来自于LOCALE_STIME.。TimeAMString 时间后缀用于在12小时制上午的后缀，初值来自于LOCALE_S1159。TimePMString 12小时制下午的后缀，初值来自于LOCALE_S2359。ShortTimeFormat 此格式化字符用于时间值转换为只有小时和分钟的短字符串。其默认值从LOCALE_ITIME 和 LOCALE_ITLZERO计算得到LongTimeFormat -此格式化字符用于时间值转换为含有小时、分钟和秒的长短字符串。其默认值从LOCALE_ITIME 和 LOCALE_ITLZERO计算得到。ShortMonthNames 字符串数组包含有短月份名，格式字串中的 mmm 特定格式被传送给FormatDate 会使得短月份名被替换。其默认值从 LOCALE_SABBREVMONTHNAME 系统本地入口取出。LongMonthNames -字符串数组包含有长月份名。格式化字串中的mmmm 格式特定符被传送给FormatDate 会使得长月份名被替换。其缺省值是从LOCALE_SMONTHNAME 系统本地入口取出。ShortDayNames -字符串数组包含有短天名，格式字串中的 ddd特定格式被传送给FormatDate 会使得短天名被替换。其默认值取自于LOCALE_SABBREVDAYNAME 系统本地入口。LongDayNames -字符串数组包含有长天名，格式字串中的 dddd特定格式被传送给FormatDate 会使得长天名被替换。其默认值取自于LOCALE_SDAYNAME 系统本地入口。ListSeparator 字符用于分开一个列表的项目，其初值来自于LOCALE_SLIST。TwoDigitYearCenturyWindow 当将字符型日期转换为数字日期时，世纪被添加到两位的年中。这个值在提取世纪值之前被从本年度减去。这能延长现有的存依赖于2位数年数据登录项的应用程序寿命。对2000年(Y2k) 问题的最好的解决办法是不再接受两位数的年，在数据登录项中只接受4位的年，从而根本上消除世纪的模糊性示例:Current TwoDigitCenturyWindow Century StrToDate() of:Year Value Pivot 01/01/03 01/01/68 01/01/50-1998 0 1900 1903 1968 19502002 0 2000 2003 2068 20501998 50 (default) 1948 2003 1968 19502002 50 (default) 1952 2003 1968 20502020 50 (default) 1970 2003 2068 2050varCurrencyString: string;CurrencyFormat: Byte;NegCurrFormat: Byte;ThousandSeparator: Char;DecimalSeparator: Char;CurrencyDecimals: Byte;DateSeparator: Char;ShortDateFormat: string;LongDateFormat: string;TimeSeparator: Char;TimeAMString: string;TimePMString: string;ShortTimeFormat: string;LongTimeFormat: string;ShortMonthNames: array1.12 of string;LongMonthNames: array1.12 of string;ShortDayNames: array1.7 of string;LongDayNames: array1.7 of string;SysLocale: TSysLocale;TwoDigitYearCenturyWindow: Word = 50;ListSeparator: Char;3) 线程安全流通和日期/时间格式化TFormatSettings 记录型被设计成允许线程安全格式化，相同的全局变量描述在上面。每个使用全局变量被重载的格式化例程都需要TformatSettings型的附加参数。一个TFormatSettings 记录型在使用之前必须有内容。使用GetLocaleFormatSettings函数能够使其基于给定环境。注意一些格式指定符仍然需要指定线程现场设置（类似于period/era 名字）。typeTFormatSettings = recordCurrencyFormat: Byte;NegCurrFormat: Byte;ThousandSeparator: Char;DecimalSeparator: Char;CurrencyDecimals: Byte;DateSeparator: Char;TimeSeparator: Char;ListSeparator: Char;CurrencyString: string;ShortDateFormat: string;LongDateFormat: string;TimeAMString: string;TimePMString: string;ShortTimeFormat: string;LongTimeFormat: string;ShortMonthNames: array1.12 of string;LongMonthNames: array1.12 of string;ShortDayNames: array1.7 of string;LongDayNames: array1.7 of string;TwoDigitYearCenturyWindow: Word;end;constMaxEraCount = 7;varEraNames: array 1.MaxEraCount of string;EraYearOffsets: array 1.MaxEraCount of Integer;以下用于Linux环境EraRanges : array 1.MaxEraCount of TEraRange platform;EraYearFormats: array 1.MaxEraCount of string platform;EraCount: Byte platform;$ENDIFconstPathDelim = $IFDEF MSWINDOWS ; $ELSE /; $ENDIFDriveDelim = $IFDEF MSWINDOWS :; $ELSE ; $ENDIFPathSep = $IFDEF MSWINDOWS ; $ELSE :; $ENDIF以下用于MsWindows平台function Languages: TLanguages;$ENDIF4) 内存管理例程。AllocMem-在堆上分配给定大小的块。被分配的缓冲区设置为0。若要消除这个缓冲区请使用FreeMem 标准过程。function AllocMem(Size: Cardinal): Pointer;5) 退出过程处理把给定的过程添加到运行时库的退出过程列表中。当应用程序终止时， 它的退出过程被执行，执行顺序是最后的过程先运行，也就是后进先出。procedure AddExitProc(Proc: TProcedure);6) 字符串处理例程function NewStr(const S: string): PString; deprecated; /在堆上分配一个字串，只是为向后兼容而提供。procedure DisposeStr(P: PString); deprecated; /消除一个由NewStr 分配的字串指针。只是为向后兼容而提供procedure AssignStr(var P: PString; const S: string); deprecated; /赋值一个新的动态的已分配字串到给定的字串指针。只是为向后兼容而提供procedure AppendStr(var Dest: string; const S: string); deprecated; /添加 S 到Dest 的末尾.（Dest := Dest + S）。只是为向后兼容而提供。function UpperCase(const S: string): string; /转换给定的ASCII字符为大写，它只对7位的ASCII字符中的a - z 起作用。 对于8位的国际字符集用AnsiUpperCase。function LowerCase(const S: string): string; /转换给定的ASCII字符为小写，它只对7位的ASCII字符中的A - Z 起作用。 对于8位的国际字符集用AnsiUpperCase。function CompareStr(const S1, S2: string): Integer; /比较字串 S1 和 S2, 有大小写敏感（case-sensitivity）. 如果S1S2，返回值大小于。这个比较操作是基于每个字符的8位序数值并且不受当前的用户环境影响function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; /比较由P1和P2分别指示的Length长度的内存区域。如果相同则返回True 。function CompareText(const S1, S2: string): Integer; /比较S1 和S2, 没有大小写敏感（case-sensitivity）。返回值与CompareStr类同。这个比较操作是基于每个字符的8位序数值（a.z 变为A.Z 后）并且不受当前的用户环境影响function SameText(const S1, S2: string): Boolean; /比较S1 和S2，没有大小写敏感。如果S1=S2，返回true ，也就是如果CompareText 将返回0。SameText 象CompareText一样有8位限制 。function AnsiUpperCase(const S: string): string; /转换给定字串中的全部字符为大写，这个转换使用用户环境。function AnsiLowerCase(const S: string): string; /转换给定字串中的全部字符为小写，这个转换使用用户环境。function AnsiCompareStr(const S1, S2: string): Integer; 比较S1和S2，有大小写敏感。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiSameStr(const S1, S2: string): Boolean; /比较S1和S2，有大小写敏感。这个比较操作受控于用户当前环境。如果AnsiCompareStr返回0，则它返回True。function AnsiCompareText(const S1, S2: string): Integer; /比较S1和S2，没有大小写敏感。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiSameText(const S1, S2: string): Boolean; /比较S1 和S2， 没有大小写敏感。这个比较操作受控于用户当前环境。如果AnsiCompareText返回0，则它返回True。function AnsiStrComp(S1, S2: PChar): Integer; /比较S1 和S2，有大小写敏感。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiStrIComp(S1, S2: PChar): Integer; 比较S1和S2，没有大小写敏感。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 比较S1和S2，有大小写敏感。最大直到MaxLen 长度。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; 比较S1和S2，没有大小写敏感。最大直到MaxLen 长度。这个比较操作受控于用户当前环境。返回值与CompareStr相同。function AnsiStrLower(Str: PChar): PChar; 转换给定字串的全部字符为小写，使用用户当前环境。function AnsiStrUpper(Str: PChar): PChar; 转换给定字串的全部字符为大写，使用用户当前环境。function AnsiLastChar(const S: string): PChar; 返回一个指到字串中的最后字符。这个函数支持多字节字符集function AnsiStrLastChar(P: PChar): PChar; 返回一个指到字串中的最后字符。这个函数支持多字节字符集。function WideUpperCase(const S: WideString): WideString; 转换给定字串的全部字符为大写。function WideLowerCase(const S: WideString): WideString; 转换给定字串的全部字符为小写。function WideCompareStr(const S1, S2: WideString): Integer; 比较S1 和S2，有大小写敏感。返回值与CompareStr相同。 function WideSameStr(const S1, S2: WideString): Boolean; 比较S1 和S2，有大小写敏感。如果WideCompareStr返回0，则它返回True。function WideCompareText(const S1, S2: WideString): Integer; 比较S1 和S2，没有大小写敏感。返回值与CompareStr相同。function WideSameText(const S1, S2: WideString): Boolean; 比较S1 和S2，没有大小写敏感。如果WideCompareText返回0，则它返回True。function Trim(const S: string): string; overload; 从给定字串中去除首尾空格和控制符。function Trim(const S: WideString): WideString; overload; 从给定字串中去除首尾空格和控制符。function TrimLeft(const S: string): string; overload; 从给定字串中去除首端空格和控制符。function TrimLeft(const S: WideString): WideString; overload; 从给定字串中去除首端空格和控制符。function TrimRight(const S: string): string; overload; 从给定字串中去除尾空格和控制符。function TrimRight(const S: WideString): WideString; overload; 从给定字串中去除尾空格和控制符。function QuotedStr(const S: string): string; 返回加引号的字串。单引号分别被插入到字串的首尾端，并且对于字串中只有一个单引号，另一个都被添加。function AnsiQuotedStr(const S: string; Quote: Char): string; 返回加给定引号字符的字串。引号分别被插入到字串的首尾端，并且字串中每个引号都是成对的。这个函数支持多字节字符集 (MBCS)。function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; 去除字符串的首尾引号，如果源字串首字符不是引号，则返回一个空的字串。函数从源串首端复制到遇到第二个引号或第一个零（Null）字符为止。这个源参数指向首个引号后面的字符串。如果源字串不包含有相匹配的结束引号，则其被指向最终的Null字符，这个函数支持多字节字符(MBCS)。function AnsiDequotedStr(const S: string; AQuote: Char): string; 是AnsiExtractQuotedStr 函数的简化 AdjustLineBreaks 调整在给定的字串中所有的换行符为指定的格式。当格式是 tlbsCRLF 时,函数改变所有CR字符和LF字符为CR/LF对。 当格式是 tlbsLF 的时候,函数改变所有的CR/LF对和CR字符为LF字符。 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =以下用于Linux环境 tlbsLF END Linux环境以下用于MSWINDOWS环境 tlbsCRLF END MSWINDOWS环境): string;function IsValidIdent(const Ident: string): Boolean; 若给定字串是有效的标识符则返回