获得DBGRID当前行的数据

Question

Dbgrid1 里有id1,id2,id3,id4我怎样得到当前行id1,id2,id3,id4
ＴＥＸＴ

Answer 1

s1 :=Dbgrid1.Fields[0].AsString;  //id1
s2 :=Dbgrid1.Fields[1].AsString;  //id2
s3 :=Dbgrid1.Fields[2].AsString;  //id3
..

Answer 2

str:=dbgrid1.datasource.dataset.filedbyname('id1').asstring;

Answer 3

procedure Tform1.DBGrid1DblClick(Sender: TObject);
begin
 with adoquery1 do
    begin
      begin
        if fieldbyname('id1).AsString='' then
          s1 :=''
        else
          s1:=fieldbyname('id1').Text ;
      end;
      begin
        if fieldbyname('id2').AsString='' then
          s2 :=''
        else
          s2:=fieldbyname('id2').Text ;
      end;
      begin
        if fieldbyname('id3').AsString='' then
          s3 :=''
        else
          s3:=fieldbyname('id3').Text ;
      end;
   end;
end;