5,388
社区成员
发帖
与我相关
我的任务
分享请问换行回车在dephi中用字符串怎么表示?
procedure TForm1.DecodeStr( SrcStr:string;var DstStrList:TStringList);
begin
DstStrList.Clear();
Trim(SrcStr);
if Length(SrcStr) <> 0 then
begin
DstStrList.Text :=StringReplace(SrcStr,';','\r\n',
[rfReplaceAll]);
end;
end;
我想将SrcStr中的分号换为回车，上面代码中有点错误，换行回车在dephi中用字符串怎么表示?
begin
DstStrList.Clear();
Trim(SrcStr);
if Length(SrcStr) <> 0 then
begin
DstStrList.Text :=StringReplace(SrcStr,';','\r\n',
[rfReplaceAll]);
end;
end;
我想将SrcStr中的分号换为回车，上面代码中有点错误，换行回车在dephi中用字符串怎么表示?
...全文
请发表友善的回复…
发表回复
wt_sanlian 2003-09-11
- 打赏
- 举报
谢谢！
ychuiming 2003-09-08
- 打赏
- 举报
#13
ziqing 2003-09-08
- 打赏
- 举报
#10 换行
#13 回车
#13 回车
sensory 2003-09-08
- 打赏
- 举报
#13 回车
#10 换行
#10 换行
cnssk 2003-09-08
- 打赏
- 举报
#13 #10回车,换行
shjanen 2003-09-08
- 打赏
- 举报
#13#10 表示回车换行
#13 回车
#10 换行
#13 回车
#10 换行
江山易改 2003-09-08
- 打赏
- 举报
procedure TForm1.DecodeStr( SrcStr:string;var DstStrList:TStringList);
begin
DstStrList.Clear();
Trim(SrcStr);
if Length(SrcStr) <> 0 then
begin
DstStrList.Text :=StringReplace(SrcStr,';',#13,
[rfReplaceAll]);
end;
end;
begin
DstStrList.Clear();
Trim(SrcStr);
if Length(SrcStr) <> 0 then
begin
DstStrList.Text :=StringReplace(SrcStr,';',#13,
[rfReplaceAll]);
end;
end;
mrtxc 2003-09-08
- 打赏
- 举报
#13
FSU 2003-09-08
- 打赏
- 举报
#13 也可以表示回车！
siwuge 2003-09-08
- 打赏
- 举报
ip学习
jmjunta 2003-09-08
- 打赏
- 举报
chr(13) chr(10) 回车换行
lzybfs 2003-09-08
- 打赏
- 举报
ok
delphiseabird 2003-09-08
- 打赏
- 举报
#13
活力华华哥 2003-09-08
- 打赏
- 举报
#13
OO_is_just_P 2003-09-08
- 打赏
- 举报
：）
gyj_china 2003-09-08
- 打赏
- 举报
同意上面的。
lemon_wei 2003-09-08
- 打赏
- 举报
来晚了，都让人家说了
