delphi将字符串转换成stringlist

标签：字符串转换   stmp   create   string   cti   int   end   copy   转换   

function StrToList(const sString, Token: string): TStringList;
var
sTmp: string;
iPos: Integer;
Toklen: Integer;
begin
Toklen := Length(Token);
Result := TStringList.Create;
sTmp := sString;
iPos := Pos(Token, sTmp);
while iPos <> 0 do
begin
Result.Add(Copy(sTmp, 1, iPos - 1));
Delete(sTmp, 1, iPos - 1 + Toklen);
iPos := Pos(Token, sTmp);
end;
Result.Add(sTmp);
end;

delphi将字符串转换成stringlist

标签：字符串转换   stmp   create   string   cti   int   end   copy   转换   

原文地址：http://www.cnblogs.com/xwgcxk/p/7233690.html