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;

[Bummi]

Ich weiß ja nicht was alles in Dein Array soll, das sollte für Dein 2 * 16 Grid passen ...

Delphi-Quellcode:

type
Twahlsatz=Array[0..1,0..15] of Integer;
var
wahlsatz:Twahlsatz;

[Hartfrid Krause]

a. Im wahlsatz array stehen nur wahlergebnisse und Kürzel für Zeit und Land.
Mein Problem ist wie ich Eingaben in stringgrid in das array "herüberschiebe".

b.In den alten edit-Feldern konnte ich definieren, durch die returntaste zum nächsten Feld zu gelangen - ist dies auch in stringgrid möglich?

[Bummi]

Ich würde ein Array of Record nehmen und zuweisen, ich weiß nicht wo genau Du hängst ...

bei Form1.KeyPreview:=true; könntest Du wenn das Stringgrid den Fokus hat ganz billig so vorgehen um aus Enter ein Tab zu machen....

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then Key := 9;

end;