急急急!!!!真是见鬼了,xxx:=xxx+1; 执行不了????

                            
procedure   TForm1.Button4Click(Sender:   TObject);   
  var  
      MyCount,   MyButtonSize,   MyLineCount,   MyLineCountI,iiii:   Integer;  
      ButtonState   :array[0..1]   of   integer;  
      i,n,iii,j:integer;  
      TitleS,   AliasNameS,ContentS   ,aaa:   String;  
      xxx,xxxx   :integer;  
  begin  
      MyCount   :=   Dm.DSBSJLStr.DataSet.RecordCount;  
      SetLength(AButton,   MyCount);  
      ButtonState[0]   :=   8;  
      ButtonState[1]   :=   8;  
      RichEdit1.Lines.Clear;  
      MyLineCount   :=   Form1.RichEdit1.Lines.Count;  
      for   i:=   1   to   9   do  
      begin  
      AButton[i]:=TButton.create(self);  
      AButton[i].parent:=ScrollBox1;  
      AButton[i].Name   :=   'Btn_'   +   DM.DSBSJLStr.DataSet.fieldbyname('AliasName').AsString   ;  
      AButton[i].caption:=DM.DSBSJLStr.DataSet.fieldbyname('ContentName').AsString   ;  
      AButton[i].Width     :=DM.DSBSJLStr.DataSet.fieldbyname('ButtonWidth').AsInteger   ;  
      AButton[i].Height   :=DM.DSBSJLStr.DataSet.fieldbyname('ButtonHeight').AsInteger;  
      AButton[i].Left   :=   ButtonState[0]   ;  
      AButton[i].top     :=   ButtonState[1]   ;  
      AButton[i].OnClick:=ButtonTongYongclick;  
      ButtonState[1]   :=   ButtonState[1]   +   30;  
      TitleS   :=   DM.DSBSJLStr.DataSet.fieldbyname('ContentName').AsString   +   ':   ';  
      AliasNameS   :=   DM.DSBSJLStr.DataSet.fieldbyname('AliasName').AsString   ;  
      ContentS   :=   Dm.DSContent.DataSet.fieldbyname(AliasNameS).AsString;  
      RichEdit1.Lines.Append(TitleS   +   ContentS);  
      if   (RichEdit1.Lines.Count   >   MyLineCount+1)   then  
      begin  
          iiii   :=   RichEdit1.Lines.Count-MyLineCount-2;  
          for   MyLineCountI   :=   0   to   iiii   do  
          begin  
                  xxx   :=   RichEdit1.Lines.Count;  
                  richedit1.Lines.Strings[MyLineCount+MyLineCountI+1]:=   #13+'                 '+richedit1.Lines.Strings[MyLineCount+MyLineCountI+1];  
                  if   (RichEdit1.Lines.Count   >   5)   then         //从此处开始看    
                  begin  
                  aaa:='aaa';                                                         //可以执行          
                  xxxx   :=   1;       //压根就不执行,就象没有   一   样          
                  showmessage('fdasfa');   //可以执行          
                  end;                                                                     //从此处结束  
          end;  
      end;  
      MyLineCount   :=   RichEdit1.Lines.Count;  
      DM.DSBSJLStr.DataSet.Next;  
      end;  
  end;  
 

查看回复