Нумерация строк в StringGrid

[artemavd]

Добрый вечер! Как сделать в StringGrid-e автоматическую нумерацию строк, которая бы зависила от количества заносимых строк в stringGrid?

[Neeter]

Если я не ошибаюсь, то нужно что-то вот такое?

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
 b: boolean;
begin
 for i := 0 to StringGrid1.RowCount - 1 do
 begin
  b := false;
  //Проверка, есть ли значения в строке
  for j := 0 to StringGrid1.ColCount - 1 do
   if StringGrid1.Cells[j, i] <> '' then
   begin
    b := true;
    break;
   end;

  if b then StringGrid1.Cells[0, i] := IntToStr(i);
 end;
end;

Или просто нумерация, даже с пустыми строками?

[artemavd]

Нет, пустые строки не нужны. Уточню. Нужно, чтобы в, например, первой колонке, шла нумерация строк, которые были внесены stringgrid.

[Neeter]

Нужно чтобы нумерация была построчная, т.е. если не заполнена первая строка, то номер не ставится, и если вторая заполнена, то номер будет 2.
Или нумерация, считающая только заполненные строки, т.е. если заполнена вторая строчка, а первая нет, то номер будет 1, и если пятая заполнена, а третья и четвертая нет, то будет номер 2. ?

По первому случаю мой код верен.

[raxp]

Как сделать в StringGrid-e автоматическую нумерацию строк, которая бы зависила от количества заносимых строк в stringGrid?

два способа:
1) переопределить в процедуре самого компонента tcustomgrid, там где идет назначение frowcount (см. модуль grid) и назначать текст в ячейках по изменению frowcount, тогда будет добавляться прямо при проектировании компонента
2) использовать ondrawcell в режиме выполнения:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with (sender as tstringgrid) do
  cells[0,ARow]:= inttostr(ARow)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 stringgrid1.DoubleBuffered:= true
end;

[artemavd]

Neeter

, да Вы правы. Ваш код верен. Спасибо