5,388
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
大地精灵 2003-08-22
- 打赏
- 举报
var
S:String;
Loop:Integer;
begin
for Loop := 0 to Memo.Lines.count - 1 do
S := S + Memo.lines.String[Loop];
end;
然后就可以对S用POS函数了，比如：pos('My',S)
if pos('My',S) >0 then
Showmessage('存在')
else
Showmessage('不存在')
S:String;
Loop:Integer;
begin
for Loop := 0 to Memo.Lines.count - 1 do
S := S + Memo.lines.String[Loop];
end;
然后就可以对S用POS函数了，比如：pos('My',S)
if pos('My',S) >0 then
Showmessage('存在')
else
Showmessage('不存在')
pankun 2003-08-21
- 打赏
- 举报
读出一个个字串，再用pos函数
大地精灵 2003-08-21
- 打赏
- 举报
它是一个TSTRINGS，你自己操作一下把，它转换成字符串，就可以啦
eliphe 2003-08-21
- 打赏
- 举报
还是自己一个个比较吧.
