deiphi编程小问题

poplic_660 2008-07-17 09:23:58
求一个用deiphi写的function用来解决字符串输出问题
如:有
var
str : string;
str:='123/456/789/911/grthrtur';
希望通过这个function达到输出的效果为:
123
456
789
911
希望有高手能解决下
...全文
135 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
poplic_660 2008-07-17
  • 打赏
  • 举报
回复
问一下怎么放?
我弄进去效果不是我要的那效果
matianpeng 2008-07-17
  • 打赏
  • 举报
回复
用writeln()?
BambooCaep 2008-07-17
  • 打赏
  • 举报
回复
[Quote=引用 10 楼 poplic_660 的回复:]
问一下 str:=123/321/3122/3545453
我不想输出'/'最后一个字符串怎么办?
只输出:
123
321
3122

[/Quote]


放在TStringList里,去掉最后一行。
poplic_660 2008-07-17
  • 打赏
  • 举报
回复
问一下 str:=123/321/3122/3545453
我不想输出'/'最后一个字符串怎么办?
只输出:
123
321
3122
BambooCaep 2008-07-17
  • 打赏
  • 举报
回复
StringReplace(Str, '/', #13#10, [rfReplaceAll]);
poplic_660 2008-07-17
  • 打赏
  • 举报
回复
不行```
gyk120 2008-07-17
  • 打赏
  • 举报
回复
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 2008-07-17
  • 打赏
  • 举报
回复
主要是通过/来分离各字符串
最后一个/之后的内容不要

gyk120 2008-07-17
  • 打赏
  • 举报
回复
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;
这个呢?
gyk120 2008-07-17
  • 打赏
  • 举报
回复
这个有些不好办,连+号也不能?
如果可以用+号的话
str:='123'
+
'456';
这样也行
poplic_660 2008-07-17
  • 打赏
  • 举报
回复
分今天我不能加上去了.有能帮忙的我明天加上去分再结帖就行了
不能在 str里加任何东西.需要把str分离出来
如一个固定字符串 str:='123/456/789/911/grthrtur';
需要通过funtion(str :string):string;
输出:
123
456
789
911
gyk120 2008-07-17
  • 打赏
  • 举报
回复
其实就是个换行符的问题,一般的编程类书籍上面都讲过了吧?
gyk120 2008-07-17
  • 打赏
  • 举报
回复
又见0分帖……
加入#13#10即可
比如
'123'+#13+#10+'456'
poplic_660 2008-07-17
  • 打赏
  • 举报
回复
恩,问题解决了.我明天加了分结帖

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧