猫
Delphi技术
日志阅读：5235
日志评论：0

上一篇日志 «
下一篇日志 »

SplitString分隔函数

该日志由 samool 发表于 2006-05-27 6:00 PM

function SplitString(Source, Deli: string ): TStringList;
var
    EndOfCurrentString: byte;
    StringList:TStringList;
begin
    StringList:=TStringList.Create;
    while Pos(Deli, Source)>0 do
    begin
        EndOfCurrentString := Pos(Deli, Source);
        StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
        Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
    end;
    Result := StringList;
    StringList.Add(source);
end;

傻猫网络日志标签: 函数 tiffany jewelry

网摘：