记事本求解

小说狂

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

lsh華

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

comeheres

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

11年__那些事儿

问题描述能否清晰点？
配上图，你那里出错？定位到哪里？
提问的智慧。。