deiphi编程小问题

[poplic_660]

求一个用deiphi写的function用来解决字符串输出问题
如:有
var
str : string;
str:='123/456/789/911/grthrtur';
希望通过这个function达到输出的效果为:
123
456
789
911
希望有高手能解决下

[poplic_660]

恩,问题解决了.我明天加了分结帖

[gyk120]

又见0分帖……
加入#13#10即可
比如
'123'+#13+#10+'456'

[gyk120]

其实就是个换行符的问题，一般的编程类书籍上面都讲过了吧？

[poplic_660]

分今天我不能加上去了.有能帮忙的我明天加上去分再结帖就行了
不能在 str里加任何东西.需要把str分离出来
如一个固定字符串 str:='123/456/789/911/grthrtur';
需要通过funtion(str :string):string;
输出:
123
456
789
911

[gyk120]

这个有些不好办，连＋号也不能？
如果可以用＋号的话
str:='123'
+
'456';
这样也行

[gyk120]

var
sl: TStringList;
i : Integer;
begin
sl := TStringList.Create;
sl.Delimiter :=',';
sl.DelimitedText := 'sgdfg,dfgdfg,dfgdfg,dfgdfgdf';
for i :=0 to sl.Count -1 do
ShowMessage(sl.Strings[i]);
sl.Free;
end;
这个呢？

[poplic_660]

主要是通过/来分离各字符串
最后一个/之后的内容不要

[gyk120]

sl.Delimiter :='/';
sl.DelimitedText := '123/456/789/911/grthrtur';
for i :=0 to sl.Count -2 do
ShowMessage(sl.Strings[i]);
sl.Free;
这个行不行？

[poplic_660]

不行```

[BambooCaep]

StringReplace(Str, '/', #13#10, [rfReplaceAll]);

[poplic_660]

问一下 str:=123/321/3122/3545453
我不想输出'/'最后一个字符串怎么办?
只输出:
123
321
3122

[BambooCaep]

[Quote=引用 10 楼 poplic_660 的回复:]
问一下 str:=123/321/3122/3545453
我不想输出'/'最后一个字符串怎么办?
只输出:
123
321
3122

[/Quote]


放在TStringList里，去掉最后一行。

[matianpeng]

用writeln()?

[poplic_660]

问一下怎么放?
我弄进去效果不是我要的那效果