关于StringGrid的定位问题

在StringGrid中有3列，分别为   '姓名',‘年龄','婚否'有20条数据  
  ----------------------------------  
          姓名         年龄           婚否  
  ----------------------------------  
          张三           30             已婚  
  -----------------------------------  
          李四           20             未婚  
  -----------------------------------  
          王五           30             已婚  
  --------------------------------------  
  .....          
   
  现在我在窗体上放一个Edit   文本框,做为输入姓名的条件，例如：我在edit中输入'王五   ’,则stringgrid就定位到第三行（既王五所在的行）,如果不是处于第一行，则让其变到第一行。  
  即让王五所在的行跑到第一行。 问题点数：20、回复次数：2Top

1 楼lxpbuaa（桂枝香在故国晚秋）回复于 2004-09-01 18:23:13 得分 20

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      I:   Integer;  
      S:   string;  
  begin  
      with   StringGrid1   do  
      for   I   :=   0   to   RowCount-1   do  
      begin  
          if   Edit1.Text   =   Rows[I][0]   then  
          begin  
              if   I   <>   0   then  
              begin  
                  S   :=   Rows[I].Text;  
                  Rows[I].Text   :=   Rows[0].Text;  
                  Rows[0].Text   :=   S;  
              end;  
              Break;  
          end;  
      end;  
  end;  
   
  ————————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  ————————————————————————————————————Top

2 楼Jeff20040819（美丽）回复于 2004-09-01 22:23:14 得分 0

upTop

相关问题

• stringgrid
• 姓名
• rows
• edit
• begin
• text

• 帖主：lushichen
• lxpbuaa

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载