鱼C记事本发现的几个问题and交作业

沉思的牛

在学习鱼C记事本遇到了几个问题现在和大家讨论一下：
问题1：小甲鱼的代码不能向下查找
为了理解小甲鱼的代码，我进行单步调试，却发现J的值和我想的不一样  赋值为0为什么会是2

J的值

到这里我就不明白小甲鱼的代码了

然后我自己写了一个查找的代码，能向下查找，大家看看

1. //按下查找按钮
   
2. procedure TForm1.FindDialog1Find(Sender: TObject);
   
3. var
   
4.    PosReturn: Integer;
   
5. begin
   
6. 
   
7. 
   
8.     if startflag = 0 then  //第一次进来
   
9.     begin
   
10.       str:=memo1.Text;  //所有字符串给str
    
11.       posreturn:=pos(finddialog1.FindText,str);  //查找第一次出现的位置
    
12. 
    
13.       if(posreturn =0 ) then  //第一次查找不到
    
14.         messagebox(handle,'查找不到','提醒',MB_OK)
    
15.       else
    
16.       begin
    
17.         str:=copy(str,posreturn+1,length(memo1.Text)-posreturn); //原来查找过的就不要了撒
    
18. 
    
19.       //  ShowMessage(Str);
    
20.      //   showmessage(inttostr(PosReturn));
    
21. 
    
22.         ptr:=ptr+PosReturn;  //ptr是光标位置
    
23. 
    
24.         Memo1.SetFocus;  //设置焦点
    
25.         Memo1.SelStart:= ptr-1;   //设置光标位置
    
26.         Memo1.SelLength:= Length(FindDialog1.FindText); //显示蓝色光标
    
27. 
    
28.         startflag:=1;  //置一
    
29.       end;
    
30.       
    
31.     end
    
32.     else   //第二次及其以上
    
33.     begin
    
34. 
    
35.       posreturn:=pos(finddialog1.FindText,str); //在Str里面找
    
36.       str:=copy(str,posreturn+1,Length(str)-PosReturn); //更新Str
    
37.       ptr:=ptr+PosReturn;
    
38. 
    
39.      // showmessage(str);
    
40.      // showmessage(inttostr(PosReturn));
    
41.      // showmessage(inttostr(ptr));
    
42.       
    
43.      If PosReturn <> 0 then   // 不等于0就是能查找到
    
44.       begin
    
45.         Memo1.SetFocus;  //设置焦点  福克斯
    
46.         Memo1.SelStart:=ptr-1;   //设置光标位置
    
47.         Memo1.SelLength:= Length(FindDialog1.FindText); //显示蓝色光标
    
48.       end
    
49.       else
    
50.         messagebox(handle,'查找不到','提醒',MB_OK); //查找完毕
    
51.      end;
    
52. end;

复制代码

1. //按下取消按钮
   
2. procedure TForm1.FindDialog1Close(Sender: TObject);
   
3. begin
   
4. //两个都是全局变量
   
5.       startflag:=0;     //这个是查找标志
   
6.      ptr:=0;   //这个是设置光标位置
   
7. end;
   

复制代码

OK, 到这里自己把查找的问题解决了；
但是小甲鱼的代码没有能理解，还有调试哪里J的值,和预期的不一样，大家来解决一下；

然后我们讨论问题二

问题2：帮助里面的字符和小甲鱼视频里面不一样
看图
小甲鱼的代码  为什么我编译过后不一样？

沉思的牛

强烈支持楼主ing...........:lol:

牡丹花下死做鬼

没怎么接触delphi 7只能支持一下 啦(*^__^*) 嘻嘻……

浮游小鱼

:dizzy:上次是科技的实力的vcd试试

沉思的牛

牡丹花下死做鬼 发表于 2013-8-20 14:08

                               
登录/注册后可看大图

没怎么接触delphi 7只能支持一下 啦(*^__^*) 嘻嘻……

帖子沉了。。。。

comeheres

只有当进入for循环，j 才会被赋值为0

第二个问题，那是系统注册的原因，看下系统属性里的注册到吧

沉思的牛

comeheres 发表于 2013-8-21 10:23

                               
登录/注册后可看大图

只有当进入for循环，j 才会被赋值为0

第二个问题，那是系统注册的原因，看下系统属性里的注册到吧

进到了for循环里面去了的，单步的时候都进去了

comeheres

沉思的牛 发表于 2013-8-21 11:18

                               
登录/注册后可看大图

进到了for循环里面去了的，单步的时候都进去了

你的i为0

i-1就是-1

For j:=0 to -1 do

j肯定不能赋值了

沉思的牛

comeheres 发表于 2013-8-21 11:32

                               
登录/注册后可看大图

你的i为0

i-1就是-1

谢谢  明白了
居然犯这种低级错误