字符串的操作 ( 积分: 50 )

S

subosoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #1

var
i:Integer;
S:String;
StrList:TStringList;
begin
S:='a1 b1/a2 b2/a3 b3';
StrList:=TStringList.Create;
StrList.Delimiter:='/';
StrList.CommaText:=S;
For i := 0 to StrList.Count-1 do
begin
Memo1.Lines.Add(StrList.Strings);
end;
end;
为什么这样写在MEMO显得是效果是[把‘空格’作为分隔符，而不是‘/’]：
a1
b1/a2
b2/a3
b3

 

Y

y7y8yyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #2

要把StrList.CommaText:=S;这句改为：strlist.DelimitedText:= s;就可以了。

 

S

subosoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #3

To: y7y8yyy
把CommaText该成DelimitedText的话出来的是
a1
b1
a2
b2
a3
b3
它把空格和'/'都当成分隔符了。。

 

G

gggoobm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #4

for I := 1 to Length(S) do
if S = '/' then Memo1.Text := Memo1.Text + #13#10
else Memo1.Text := Memo1.Text + S;

 

Y

y7y8yyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #5

那就先把空格出掉：
var
stem: string;
begin
stem := '';
for i:= 1 to length(s) do
if s <> ' ' then
stem := stem + s;
s := stem;
end;

 

S

subosoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-04

• #6

找到方法replacestring。。散分~~~