automatische Numerierung in Stringgrid

[faux]

Zitat von tom_po:

hatte allerding ursprünglich schlecht erklärte, möchte eigentlich in Spalte 0 das von jeder möglichen Zeile aus, ohne die darüber liegenden Zahlen zu ändern...meinst du, es geht mit deinem code auch???

Klar:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Value, Code, i: Integer;
begin
  if (Key = 13) and (StringGrid1.Col = 0) then
  begin
    Val(StringGrid1.Cells[0, StringGrid1.Row], Value, Code);
    if Code = 0 then
    begin
      for i := StringGrid1.Row + 1 to StringGrid1.RowCount - 1 do
      begin
        StringGrid1.Cells[0, i] := IntToStr(Value + i - 1);
      end;
    end;
  end;
end;

Jedoch solltest du den Code auch verstehen, sonst bringt dir das ganze nichts.

Grüße
Faux