盒子论坛 v2.1

各位前辈能否帮助小弟解决一个问题，对于查找对话框和替换对话框的用法。
哪位能帮助我一下。给我一个关于这两个对话框用法的例程，先谢谢大家了！
对于查找对话框，帮助里带的例子不能进行下一个查询。（如下：）

var                                     //只能找到一个匹配的字符串，功能不完全！
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {found!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
      Skipchars := Skipchars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*20);
      SkipChars := SkipChars + PosReturn - 1;
      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(FindDialog1.FindText);
      Break;
    end;
  end;

替换对话框：

   （无）

哪位能给我一个能实现这两个控件完整功能的例子？
----------------------------------------------
-

作者：

endo (燕子帝国)	★☆☆☆☆	-
	盒子活跃会员

2004/4/28 10:42:53

1楼：

Delphi自带的例子有！
----------------------------------------------
『惠安人才网』 www.harcw.net

信息

登陆以后才能回复