QQ登录

只需一步,快速开始

搜索
【活动】边做笔记边学习,还能赢取奖学金!
查看: 3182|回复: 68

提交作业:鱼C记事本V1.0

  [复制链接]
累计签到:118 天
连续签到:0 天
最佳答案
0 
发表于 2012-9-8 05:36:40 | 显示全部楼层 |阅读模式

马上注册加入鱼C,享用更多服务吧^_^

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
实现了查找功能,但是没有实现查找下一个或向下查找的功能,谁实现了,就发帖子吧
游客,如果您要查看本帖隐藏内容请回复


procedure TForm1.dlgFind1Find(Sender: TObject);
begin
  chazhao;
end;

procedure TForm1.dlgReplace1Find(Sender: TObject);
begin
  chazhao;
end;

procedure TForm1.dlgReplace1Replace(Sender: TObject);
var
SelPos:Integer;
begin
with TReplaceDialog(Sender) do
  begin
    SelPos := Pos(FindText, mmo1.Lines.Text);
    if SelPos > 0 then
    begin
      mmo1.SelStart := SelPos - 1;
      mmo1.SelLength := Length(FindText);
      mmo1.SelText := ReplaceText;
    end
    else
      MessageBox(Handle, ' 抱歉,找不到需要替换的文件!', '提示', MB_OK or MB_ICONERROR);
  end;
end;

procedure TForm1.FIND2Click(Sender: TObject);
begin
dlgFind1.FindText:=mmo1.SelText;
dlgFind1.Execute;
end;

procedure TForm1.FONT2Click(Sender: TObject);
begin
if dlgFont1.Execute then
   mmo1.Font:=dlgFont1.Font
else
  Exit;
end;

procedure TForm1.NEW1Click(Sender: TObject);
begin
if mmo1.Modified=True then
begin
  if ID_OK= MessageBox(Handle, '内容以及发生变化,是否保存?', '提示', MB_YESNO) then
    begin
      dlgSave1.Filter := '文本文件(*.txt)|*.TXT';
      if dlgSave1.Execute then
        FileName := dlgSave1.FileName + '.txt';
      mmo1.Lines.SaveToFile(FileName)
    end
    else
      mmo1.Clear;
  end;
end;

procedure TForm1.OPEN1Click(Sender: TObject);
begin
  dlgOpen1.Filter := '文本文档(*.txt)|*.TXT';

  if dlgOpen1.Execute then
  begin
    FileName := dlgOpen1.FileName;
    mmo1.Lines.LoadFromFile(FileName);
  end
  else
    Exit;
end;

procedure TForm1.PASTE1Click(Sender: TObject);
begin
mmo1.PasteFromClipboard;
end;

procedure TForm1.REPLACE1Click(Sender: TObject);
begin
dlgReplace1.ReplaceText:=mmo1.SelText;
dlgReplace1.Execute;
end;

//实现查找功能
procedure TForm1.chazhao;
var
  j: Integer;
  PosReturn: Integer; //接收Pos函数的返回值 ,这个值显示了我们所要查的字符在某一行的确切位置
  SkipChars: Integer;  //计算在我们查找到的地方之前有多少字符
  i: Integer;
begin
  for i := 0 to mmo1.Lines.Count-1 do  //一共有i行,我们要从第1行开始一直查找到第i行
  begin
    PosReturn := Pos(dlgFind1.FindText, mmo1.Lines); {接收返回值,如果返回值是0则说明在这一行没有找到
                                                          我们要查的 ,如果返回值是一个整数,说明我们查找的
                                                          找到了,而且是在那个返回值的位置 }
    if PosReturn <> 0 then    //如果返回值不是0
    begin
      SkipChars := 0;         //初始化,在即将开始查找之前,为0
      for j := 0 to i - 1 do       //从第1行循环到第i行
      SkipChars := SkipChars + Length(mmo1.Lines[j]); {length计算某一行的长度,如果在第1行查找到,就不会执行
                                                        这句 ,因为第一行查到的话,直接就知道确定位置,第第二行
                                                        开始计算每一行的前一行的长度}
      SkipChars := SkipChars + (i * 2);      //在每次进行换行的时候,要按回车,占用2个字节,所以从第1行结束开始,每行都要多2个字节
      SkipChars := SkipChars + PosReturn - 1; {SkipChars执行到这,说明已经至少进入第二行,行数+确切某一行
                                               的某个位置=查找的字符的确切位置,减一是因为SkipChars是查找到
                                               的字符之前的所有字符之和}

      mmo1.SetFocus;    //mmo1获得焦点
      mmo1.SelStart := SkipChars;
      mmo1.SelLength := Length(dlgFind1.FindText);
      Break;
    end;
  end;
end;

procedure TForm1.SAVE1Click(Sender: TObject);
begin
  dlgSave1.Filter := '文本文档(*.txt)|*.TXT';

if dlgSave1.Execute then
  begin
    FileName:=dlgSave1.FileName + '.txt';
    mmo1.Lines.SaveToFile(FileName);
  end
else
  Exit;
end;




1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:1 天
连续签到:1 天
最佳答案
0 
发表于 2017-7-13 16:22:11 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!

尚未签到

最佳答案
0 
发表于 2017-7-12 17:34:25 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:1 天
连续签到:1 天
最佳答案
0 
发表于 2017-7-11 22:02:19 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!

尚未签到

最佳答案
0 
发表于 2017-7-11 17:13:20 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!

尚未签到

最佳答案
0 
发表于 2017-2-2 21:46:53 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:3 天
连续签到:1 天
最佳答案
0 
发表于 2016-7-11 00:14:54 | 显示全部楼层
posreturn:=pos(finddialog1.FindText,memo1.Lines); 这句为什么编译不通过,报错([Error] Unit1.pas(159): Incompatible types)

如果是 posreturn:=pos(finddialog1.FindText,memo1.Lines[i]); 才不会报错,求解啊 楼主!!!
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:3 天
连续签到:1 天
最佳答案
0 
发表于 2016-7-11 00:04:51 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:7 天
连续签到:1 天
最佳答案
0 
发表于 2016-5-24 10:42:03 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:1 天
连续签到:1 天
最佳答案
0 
发表于 2016-5-17 10:12:11 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:22 天
连续签到:1 天
最佳答案
0 
发表于 2016-5-13 13:47:15 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:6 天
连续签到:1 天
最佳答案
0 
发表于 2016-5-4 11:43:08 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:1 天
连续签到:1 天
最佳答案
0 
发表于 2015-5-18 09:04:04 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:10 天
连续签到:1 天
最佳答案
0 
发表于 2015-5-12 21:42:49 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:1 天
连续签到:1 天
最佳答案
0 
发表于 2015-5-7 16:08:43 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:6 天
连续签到:0 天
最佳答案
0 
发表于 2014-12-21 01:21:52 | 显示全部楼层
{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:6 天
连续签到:1 天
最佳答案
0 
发表于 2014-12-10 17:59:02 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:12 天
连续签到:1 天
最佳答案
0 
发表于 2014-12-10 17:21:23 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:8 天
连续签到:1 天
最佳答案
0 
发表于 2014-8-25 13:53:45 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
累计签到:82 天
连续签到:1 天
最佳答案
0 
发表于 2014-8-13 06:47:44 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!

尚未签到

最佳答案
0 
发表于 2014-8-12 12:46:30 | 显示全部楼层
1. 如果您的提问得到满意的答案,请务必选择【最佳答案】;2. 如果想鼓励一下楼主或帮助到您的朋友,可以给他们【评分】作为奖励;
3. 善用【论坛搜索】功能,那里可能有您想要的答案;4. 粘贴代码请点击编辑框上的 <> 按钮,否则您的代码可能会被“吃掉”!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋手机版Archiver( 粤公网安备 44051102000370号 | 粤ICP备11014136号

© 2010-2017 FishC.com GMT+8, 2017-7-27 00:42 Powered by Discuz! X2.5 Theme by dreambred

快速回复 返回顶部 返回列表