automatische Numerierung in Stringgrid

[tom_po]

Vielen Dank Faux, es klappt, allerdings nur bis Zeile 6, siehe Bild, möchte es aber bis letzte Zeile (40), bzw. flexibel bis letzte Zeile. (siehe Bild=

Hier der Code (ich hatte bei KeyDown schon programmiert, dass er beim Editieren automatisch in die nächste Zelle geht...:

Delphi-Quellcode:

procedure Tlote.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Value, Code, i: Integer;
begin
   if StringGrid1.EditorMode then begin //wenn sich die Zelle im EditModus befindet

      if (Key = VK_RIGHT) and //und die Pfeil-nach-rechts-Taste gedrückt wurde
      (GetCaretPosition(StringGrid1) = Length(TMyGrid(StringGrid1).InplaceEditor.EditText)) and //und sich der Caret am Ende des Zelltextes befindet
      (StringGrid1.Col < StringGrid1.ColCount - 1) then begin //und die aktive Zelle sich nicht in der letzten Spalte befindet
         StringGrid1.Col := StringGrid1.Col + 1; //dann springe eine Spalte weiter nach rechts
      end

      else
         if (Key = VK_LEFT) and //und die Pfeil-nach-links-Taste gedrückt wurde
      (GetCaretPosition(StringGrid1) = 0) and //und sich der Caret am Anfang des Zelltextes befindet
      (StringGrid1.Col > StringGrid1.FixedCols) then begin //und die aktive Zelle sich nicht in der ersten Spalte nach den FixedCols befindet
         StringGrid1.Col := StringGrid1.Col - 1; //dann springe eine Spalte zurück nach links
      end;
   end;

   if (Key = 13) and (StringGrid1.Col = 0) and (StringGrid1.Row = 1) then
  begin
    Val(StringGrid1.Cells[0, 1], Value, Code);
    if Code = 0 then
    begin
      for i := 2 to StringGrid1.ColCount - 1 do
      begin
        StringGrid1.Cells[0, i] := IntToStr(Value + i - 1);
      end;
    end;
  end;

end;

Kann man auch das so machen, dass wenn ich weiter unten, z.B. in Zeile 10 (spalte 0) einen Wert eingebe, die automtatische Nummerierung erst ab Zeile 11 anfängt, bis letzte Zeile, ohne die Zeilen 1-9 zu löschen??