delphi编程！

我想实现点击DBGrid中的一行，然后可以得到这一行信息的功能，应该怎样做呢？有没有源代码呀！我试过用DBGrid的selectedrow，但是每次都出错，原因应该是我没有选择吧（因为我用DBGrid的selectedrow.count测试，每次这个count值为0），但是我确实有点选一行中的一列呀？！  
  问题点数：20、回复次数：4Top

1 楼lizhenjia（暴雪）回复于 2002-05-20 11:41:53 得分 10

var  
      strfield:TstringField;  
      str:string;  
    begin  
        strfield:=query1.fields[0]   as   TstringField;  
        str:=trim(strfield.Value);  
        showmessage(str);  
    end;Top

2 楼lizhenjia（暴雪）回复于 2002-05-20 11:42:15 得分 0

var  
      strfield:TstringField;  
      str:string;  
    begin  
        strfield:=query1.fields[0]   as   TstringField;  
        str:=trim(strfield.Value);  
        showmessage(str);  
    end;Top

3 楼candy_wang（阳光）回复于 2002-05-20 11:46:06 得分 0

但是我用的是ADO,而且我没有用ADOquery，我用的是AdodatasetTop

4 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-05-20 11:50:07 得分 5

ShowMessage(DBGrid1.DataSource.DataSet.Fields[0].AsString);Top

5 楼Bes96261（秋水孤鶩）回复于 2002-05-20 11:53:38 得分 5

為什麼不使用DBGrid   的CellClick事件呢?  
  例如:  
  procedure   TBaseFindFrm1.DBGrid1CellClick(Column:   TColumn);  
  begin                      
      inherited;  
      Edit1.Text   :=   Query1.Fields[0].AsString;  
      Edit2.Text   :=   Query1.Fields[1].AsString;  
  end;Top

相关问题

• strfield
• tstringfield
• dbgrid
• asstring
• 一行
• query
• fields
• str
• begin

• 帖主：candy_wang
• lizhenjia
• zswang
• Bes96261

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