查找对话框

AntherOne

procedure TForm1.dlgFind1Find(Sender: TObject);
var
  i,k,PosReturn,SkipChars:Integer;
begin
  for i:= 0 to mmo1.Lines.Count do
  begin
    PosReturn:=Pos(dlgFind1.FindText,mmo1.Lines[i]);
    if PosReturn <> 0 then
    begin
      Skipchars:=0;
      for k:= 0 to i-1 do
      Skipchars:= SkipChars + Length(mmo1.Lines[k]);
      SkipChars:= SkipChars + (i*2);
      Skipchars:= SkipChars + PosReturn - 1;

      mmo1.SetFocus;
      mmo1.SelStart:=SkipChars;
      mmo1.SelLength:=Length(dlgFind1.FindText);
      Break;
    end;
  end;
end;
求详细解释~

my_angel

你起码也要把要问的问题说出来啊。。。

AntherOne

my_angel 发表于 2013-9-24 03:19

                               
登录/注册后可看大图

你起码也要把要问的问题说出来啊。。。

就是小甲鱼delphi记事本实现查找功能那一段，我一直不明白

夏七夕

what,what?

AntherOne

my_angel 发表于 2013-9-24 03:19

                               
登录/注册后可看大图

你起码也要把要问的问题说出来啊。。。

我输入'abcd'然后查找了其中的'b',为什么k的值是2？(整个程序其它地方都没有用到整形变量k!)

为什么运行到这里k的值一直没变？

林黛玉的葬礼

学习了，长见识了