如何从stringgrid中复制选中的数据

Question

我找不到从字符串网格复制所选单元格数据的方法，如果可能的话，我希望将所选数据字符串复制到编辑框。非常感谢。 我正在使用 delphi xe8，firemonkey。

到目前为止我尝试了什么..

Private
A : Array of TValue;
procedure TForm1.Grid1GetValue(Sender: TObject; const Col, Row: Integer; var        Value: TValue);
 begin
// Gets the value from a cell in the first column
if Col = 0 then
 Value := A[Row];

procedure TForm1.Button2Click(Sender: TObject);
begin
A[1] := Edit1.Text;
end;

Answer 1

//i spent hours just to figure it out,waste of TIME;//

Procedure Formx.StringGrid1SellectCell(Sender: TObject; const ACol,Arow: integer;   var CanSellect: Boolean);
Var
Val: string;
begin
Val := StringGrid1.Cells[ACol, ARow];
Edit1.Text:= Val;