一个delphi的关于记事本查找的程序
来源:百度知道 编辑:UC知道 时间:2024/06/07 23:05:23
不知道楼主是不是想做一个记事本程序.
若用查找控件的话,使用下面的代码即可实现:
with RichEdit1 do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
for i := 0 to RichEdit1.Lines.Count - 1 do
if pos(FindDialog1.FindText,Richedit1.Lines[i]) <> 0 then
Memo1.Lines.Add('在第 '+IntToStr(i + 1) + ' 行找到'+FindDialog1.FindText);
end
else
showmessage('找不到?'+#39+Finddialog1.FindText+#39);
end;
如果不用FindDialog控件的话,直接在button按钮下完成:
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to RichEdit1.Lines.Count -1 do
begin
if pos(trim(Edit1.Text),RichEdit1.Lines[i]) <> 0 then