如何從字符串網格中複製選定的數據

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;