一个串 aaa|bbb|ccc 怎样拆成三部分然后放入TStringList中？(20分)

M

maohbao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-08

• #1

一个串 aaa|bbb|ccc 怎样拆成三部分(aaa,bbb,ccc)然后放入TStringList中？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-08

• #2

ExtractStrings(['|'],[' '],'aaa|bbb|ccc',ListBox1.Items);

 

Y

yangyongl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #3

delphi最讨厌的东西，没有Split
除了kaida的还有一种方法：
Str:='aaa|bbb|ccc';
Str:=StringReplace( str, '|', #13#10, [rfReplaceAll] );
StringList.Text:=Str;

 

F

fansofamei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #4

我来个第三种方法：
procedure TForm1.Button1Click(Sender: TObject);
var
lst:tstringlist;
i:integer;
begin
lst:=tstringlist.Create;
try
lst.Delimiter:='|';
lst.DelimitedText:='aaa|bbb|ccc';
for i := 0 to lst.Count-1 do
begin
memo1.Lines.Add(lst.Strings);
end;
finally
lst.Free;
end;
end;

完全使用stringlist的特性

 

好

好像是高手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #5

我只知道前两种方法
这回看到了第3种方法
受教了

以前一直在用第1种方法

 

水

水影8888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #6

学习一下,三种方法都不错..

 

I

icewaiter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #7

第三种方法真是学习了

 

S

socid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #8

TStrings用了不少时间了，还真不知道这样的用法。
收藏下。

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #9

又学到了东西！ 谢谢！ TKS ！

 

Q

qqq111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-27

• #10

这个问题论坛里面有很多帖子,上面的方法都有缺点,
TStrings的默认分割符是' '和',',只有将'|'替换成' '或者',',在赋值给TStrings.CommaText就自然分割了,但是这有个缺点,就是字符里面含有' '和','就不行了
最好就是自己写个,我用下面这个很好用,也是在大富翁里面找的
function SplitString(const source,ch:string):tstringlist;
var
temp:string;
i:integer;
begin
result:=tstringlist.Create;
temp:=source;
i:=pos(ch,source);
while i<>0 do
begin
result.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(ch,temp);
end;
result.Add(temp);
end