如何取得DBGRID当前选定行的内容，包括该行所有的列。一定给分。

Question

function DataSetToStr(mDataSet: TDataSet): string;
var
  I: Integer;
begin
  Result := '';
  if not mDataSet.Active then Exit;
  for I := 0 to mDataSet.FieldList.Count do
    Result := Result + #9 + mDataSet.FieldList[I].DisplayText;
end; { DataSetToStr }

Answer 1

function DataSetToStr(mDataSet: TDataSet): string;
var
  I: Integer;
begin
  Result := '';
  if not mDataSet.Active then Exit;
  for I := 0 to mDataSet.FieldList.Count - 1 do
//                                 ~~~~~~~~~~~
    Result := Result + #9 + mDataSet.FieldList[I].DisplayText;
  Delete(Result, 1, 1);
//~~~~~~~~~~~~~~~~~~~~~
end; { DataSetToStr }//demo
ShowMessage(DBGrid1.DataSource.DataSet);

Answer 2

谢谢各位支持。我想取到的是当前选定好，请问在dataset中如何限制呢？

Answer 3

/////////////////////////////////
            这是行
/////////////////////////////////////　　　/////
/////　这　/////
/////　是　/////
/////　列　/////
/////　　　///////我没说错吧？？？？function DataSetToStr(mDataSet: TDataSet): string;
var
  I: Integer;
begin
  Result := '';
  if not mDataSet.Active then Exit;
  for I := 0 to mDataSet.FieldList.Count - 1 do
//                                ~~~~~~~~~~~
    Result := Result + #9 + mDataSet.FieldList[I].DisplayText;
  Delete(Result, 1, 1);
//~~~~~~~~~~~~~~~~~~~~~
end; { DataSetToStr }

Answer 4

明白了。谢谢zswang(伴水)(被黑中)。
给分拉。。