小说狂 发表于 2013-6-20 11:49:54

记事本求解

var
i,j,PosReturn,skipchars:integer;
begin
for i:=0 to memo1.Lines.Count do
Posreturn:=pos(finddialog1.FindText , memo1.Lines );
if posreturn <> 0 then
begin
   skipchars:=0;
   for j:=0 to i-1 do
   skipchars:=skipchars+Length(memo1.Lines );
   skipchars:=skipchars+(i*2);
   skipchars:=skipchars+PosReturn - 1;
   memo1.SetFocus;
   memo1.SelStart:=skipchars;
   memo1.SelLength:=length(finddialog1.findText);
   end ;
提示有错误嗯 查找功能无法实现！！！！


lsh華 发表于 2013-6-20 13:02:47

无回帖，不论坛，这才是人道。

comeheres 发表于 2013-6-20 13:10:45

for…do…函数，少了begin和end吧？

11年__那些事儿 发表于 2013-6-20 14:43:48

问题描述能否清晰点？
配上图，你那里出错？定位到哪里？
提问的智慧。。
页: [1]
查看完整版本: 记事本求解