как в Stringrid поставить нумерацию столбцов?

[dyc9]

подскажите пожалуйста, как в Strngrd поставить нумерацию столбцов, а именно у меня два Strngrd, нужно чтобы во втором еще было число ячейки в котором находяятся данные

[Serge_Bliznykov]

так?

for i:=1 to StringGrid1.ColCount-1 do
  StringGrid1.Cells[i, 0] := IntToStr(i);

[dyc9]

Сообщение от Serge_Bliznykov

так?

for i:=1 to StringGrid1.ColCount-1 do
  StringGrid1.Cells[i, 0] := IntToStr(i);

а как сделать, если массив динамичный?

код

function Strngrd_value_RND(Sender: TObject; n: integer): boolean;
var
  i: integer;
begin
  with Sender as TStringGrid do begin
    ColCount := n ;
    for i := 0 to ColCount - 1 do
      Cells[i, 0] := IntToStr(Random(1000)-Random(1000));
  end;//with
  Result:=True; //добавь
end;//function Strngrd_value_RND
procedure TForm1.btn1Click(Sender: TObject);
type
  TM = array of integer;
var
  m: TM;
  a: Integer;
  i,j,n:integer;
  summ:integer;
begin
  SetLength(m, strtoint(edt3.Text));
 //считать в массив
  for i := low(m) to high(m) do
    m[i] := StrToint(strngrd1.Cells[i, 0]);
  //
for i := low(m) to high(m)-1 do begin
  for j := i+1 to high(m) do begin //от следующего за i
  if m[i]>m[j] then
    begin
       a:=m[i];
       m[i]:=m[j];
       m[j]:=a;
    end;
   end;
   end;
  Strngrd2.ColCount := high (m)+1;
for i:=low(m) to high(m) do begin
     strngrd2.Cells[i,0]:=inttostr(m[i]);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  try
    if Strngrd_value_RND(Strngrd1, strtoint(edt3.Text)) then
      ShowMessage('Ахтунг! Strngrd1 заполнен случайными числами!');
  except
    ShowMessage('Ахтунг! ошибка обработки!');
  end;
end;

end.