stringgrid auslesen

[Bummi]

a.) procedure TForm2.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
b.)dann versuchs mal so

Delphi-Quellcode:

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  // Annahme 1 Col Fixed , fehlen nochj sonderbehandlungen für gesperrte und zu hohe Rows
  if Key=#13 then
      begin
        if TStringGrid(Sender).Col= TStringGrid(Sender).ColCount -1 then
            begin
                TStringGrid(Sender).Col:=1;
                TStringGrid(Sender).Row:= TStringGrid(Sender).Row + 1;
            end else TStringGrid(Sender).Col := TStringGrid(Sender).Col + 1;
      end;
end;

c.) könnte man zum Beispiel hier machen
procedure TForm2.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);