stringgrid auslesen

[Hartfrid Krause]

Mit den beiden Prozeduren können nur in der 1. Spalte des stringgrid zahlen eingegeben werdeen.
Sie erscheinen auf dem Bildschirm.
Diese eingegebenen Zahlenwerte will ich auslesen und in einem array einfangen, um sie weiter zu bearbeiten.
Mit der dritten prozedur soll das auslesehn geschehen, aber wie???


procedure TForm11.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with StringGrid1 do
if Col = 1 then Stringgrid1.Options := Stringgrid1.Options + [goEditing]+ [goTabs]
else Stringgrid1.Options := Stringgrid1.Options - [goEditing]-[goTabs];
end;


procedure TForm11.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then
begin
beep;
key := #0;
end;
end;


procedure tform11.dateneingeben(sender:TObject);
var i:integer;
begin
with stringgrid1 do
begin
for i:=3 to 15 do ...???...cells[1,i]...???

end;
end;