我记得应该是#13+#10,但好象也不一定,#13或#10可能也可以分行。
推荐你把所有字符的ASCII打出来,看一下,你就清楚了
var i:integer;
var k:integer;
var temp:String;
begin
temp:='';
i:=Length(RichEdit1.Lines.Text);//所有字符的长度
for k:=1 to i do
begin
temp:=temp+InttoStr(Ord(RichEdit1.Lines.Text[k]));
if (k mod 13 )=0 then
begin
temp:=temp+#13+#10;
end;
end;
ShowMessage(temp);
end;
//打出来后,你慢慢对照,这样才能得到最正确的答案
推荐你把所有字符的ASCII打出来,看一下,你就清楚了
var i:integer;
var k:integer;
var temp:String;
begin
temp:='';
i:=Length(RichEdit1.Lines.Text);//所有字符的长度
for k:=1 to i do
begin
temp:=temp+InttoStr(Ord(RichEdit1.Lines.Text[k]));
if (k mod 13 )=0 then
begin
temp:=temp+#13+#10;
end;
end;
ShowMessage(temp);
end;
//打出来后,你慢慢对照,这样才能得到最正确的答案
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货