stringgrid auslesen

[Hartfrid Krause]

So klappt das noch nicht.
Ich will neue Wahlergebnisse direkt in eine stringgrid eingeben und sie dann in einem array wahlsatz[1..1] abspeichern.
In der Procedure tabelleformatieren wird die stringgrid vorbereitet und mit "struktur" die Partzeinamen etc. angezeigt. In col1 sollen dann die Zahlenwerte eingegeben werden.
Die Prozeduren stringgrid1keydown und sringgrid1keypressed sollen nur die Eingaben von ganzen Wahlen ermöglichen.
UNKLAR die Procedur dateneingeben, die so nicht korrekt ist. Hier sollen die Werte eingegeben werden und sie dann im array dann zu speichern.




procedure tform11.tabelleFormatieren(sender:TObject);
var i:integer;
BEGIN
with stringgrid1 do
begin
rowcount:=16;
colcount:=2;
form2.wahldatstruktur(sender);
cells[0,0]:='Parteien';
cells[1,0]:='Wahlergebnis';
for i:=1 to 15 do cells[0,i]:=struktur[i];
colwidths[0]:=8*groupbox5.Width div 30;
colwidths[1]:=6*groupbox5.Width div 30;
END;
END;

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
for i:=3 to 15 do
tryStrtoInt(Stringgrid1.Cells[1,i],wahlsatz[i]); //klappt so noch nicht
end;