xtstrings.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 27 行

unit xTStrings;


//释放TStrings所持有的对象。
procedure FreeStringsObjects(oStr: TStrings);

//将TStrings的每个项目文字接续起来，两两以Delimiter间隔
function CompositeStrings(oStr: TStrings; const Delimiter: string): string;

//寻访TStrings每个项目，只要项目文字与字符串s相同(不分大小写，不论长度)，即返回该项目编号
function IndexOfStrings(oStr: TStrings; S: string; StartIndex: Integer = 0; bForward: Boolean = True): Integer;

//分割一个字符串，分割符substr，分割后的字符串分组放入TStringList中。
procedure SplitToStrings(const s,substr:String ; var oStr:TStringList);

//强制加载TStrings，在仍有可能成功的情况下，不实现目标函数就不返回。
function SafeLoadStrings(oStr: TStrings; const sFilePath: string): Boolean;

//强制存储TStrings，在仍有可能成功的情况下，不实现目标函数就不返回。
function SafeSaveStrings(oStr: TStrings; const sFilePath: string): Boolean;

//从指定文件读入字符串。
function FileLoadStrings(const sFilePath: String): String;

//将字符串写入指定文件。
procedure FileSaveStrings(const sFilePath,s: String);