下面两个函数均是对于一个字符串将其以某个分割符分开:
function SplitStrToArray(const tString, tSplit: String): TStringList;
//以后成为方法1,这也是《delphi超级猛料》中提到的算法
var
t_Str, t_Item: WideString;
t_Index, t_Len: Integer;
t_StrList: TStringList;
begin
t_StrList := TStringList.Create();
t_Str := tString;
t_Len := Length(tString);
t_Index := pos(tSplit, t_Str); //语句1
if t_Index 0 then
begin
while t_Index 0 do
begin
t_Item := Le...[ 查看全文 ]