Stringgrid Text in den selektierten Zellen einfügen

[Gandimann]

Danke Himitsu,
für deine Hinweise. Ich bin zwar mit der Schleife etwas weiter gekommen sodass in jede Zelle Edit1.text eingefügt wird leider fehlt mir noch die Info wie ich mit Loop (Schleife) kontrollieren kann ob die Zelle selektiert ist sodass nur da eingefügt wird.

mein jetziger Code lautet:


procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
StringGrid1.FixedCols := 1;
StringGrid1.FixedRows := 1;

for i := 0 to ( (StringGrid1.ColCount-1) * (StringGrid1.RowCount-1)) do

StringGrid1.Cells[i mod (StringGrid1.ColCount - 1) + 1, i div (StringGrid1.ColCount - 1) + 1] := Edit1.Text;

end;