怎么判断字符串S是否包含回车(即换行符)。 (100分)

  • 主题发起人 主题发起人 孔明.net
  • 开始时间 开始时间
孔

孔明.net

Unregistered / Unconfirmed
GUEST, unregistred user!
1、有Form1和Form2，有没有办法让form1显示在form2之上，厕焦点落在form2上面。就像打
字时输入法的提示框出现在文本之上一样。(这个会了。)
2、有字符窜S，可能包含有汉字和非汉字。怎么样返回最后面的那个字符。(这个会了。)
3、怎么判断字符串S是否包含回车(即换行符)。
 
我UP
 
1，form1设为stStayonTop,就可以达到你的要求
2，比较麻烦，要判断s[length(s)]，分类讨论
 
可以把它强制成WideString再取最后一个字
如：
var
S: string;
begin
S := Edit1.Text;
ShowMessage(WideString(S)[Length(WideString(S))]);
end;
 
换行符好象是#13，
 
回车是#13,换行是#10,
Pos(#13#10,S)>0 有。
 
tyzhang的做法可行
 
var
i: Integer;
s: String;
begin
s := Edit1.Text;
for i := 1 to Length(s) do
if s = #13 then
begin
//找到，有回车
end;
end;
end;
 
同意tyzhang的做法！
 
据本人所知，以上做法都好像不行，不知你们在贴贴子的时候有没有试过。
本人倒有一办法，不过很蠢。
var
MyStrList: TStringList;
sTmp: String;
begin
try
MyStrList:= TStringList.Create();
MyStrList.text:= sStr;//sStr为所要判断的字符串
if MyStrList.Count > 0 then

// 有回车
else
// 没有回车
end;
如果要去掉其中的回车键，可以
sTmp:= '';
for i:= 0 to MyStrList.count-1 do
sTmp:=sTmp+MyStrList.Strings;
则sTmp 为所要的字符串。
 
If pos(#13#10,S)>0 then
SHowmessage(' 有回车换行');
 
怎么又多一了问？ [:)]
>3、回车(即换行符)。
回车跟换行是不同的。 回车是#13，换行是#10
用吉祥鸟的办法就行了。
 
if strpos(#13,s)<>nil then
showmessage('有回车');
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

M
如何把string中的回车键（在字符串中表现为'#$D#$A'）替换掉！(100分)
回复
5
查看
142
mike_tan
M
Y
怎样判断一字符串中是否含有@(1分)
回复
8
查看
338
yanghai0437
Y
H
如何截取这种字符串？ (10分)
回复
8
查看
264
huayf
H
T
怎样判断得到的字符串可不可以转换成浮点类型（strtofloat()）？(10分)
回复
2
查看
142
kofxdm
K
S
如何判断指定字符串是否含有判断的字符？(50分)
回复
3
查看
182
netfool
N
后退
顶部