葬
葬月
Unregistered / Unconfirmed
GUEST, unregistred user!
如'111222=333444=555666'根据'='可以分割为
111222
333444
555666
的TStrings
function SplitString(const source,ch:string):TStrings;
var
temp:string;
i:integer;
begin
result:=TStringlist.Create;
temp:=source;
i:=pos(ch,source);
//得到第一个分割的标识字符串的位置
while i<>0do
begin
result.Add(copy(temp,0,i-1));
//copy能够将分割字符前面的字符串添加到result
delete(temp,1,i);
//delete 将第一个分割字符前面(包括分割字符串)的字符串删除
i:=pos(ch,temp);
//重新得到i
end;
result.Add(temp);
end;
111222
333444
555666
的TStrings
function SplitString(const source,ch:string):TStrings;
var
temp:string;
i:integer;
begin
result:=TStringlist.Create;
temp:=source;
i:=pos(ch,source);
//得到第一个分割的标识字符串的位置
while i<>0do
begin
result.Add(copy(temp,0,i-1));
//copy能够将分割字符前面的字符串添加到result
delete(temp,1,i);
//delete 将第一个分割字符前面(包括分割字符串)的字符串删除
i:=pos(ch,temp);
//重新得到i
end;
result.Add(temp);
end;