Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как записывать значения в "шапку"Stringgrid

Автор: dedushka191 10.3.2008, 17:43

День добрый!!!!!!!!!У меня есть маленькая проблемка, вопрос такого плана-я задаю размер Stringgrid с помощью двух едитов-тут всё отлично,но для дальнейшей работы мне нужно заполнить шапку,как для столбца так и для строки с ихними соответствующими номерами,типа чтобы над первым столбцом в шапке стоял номер один и так далеее....до у казаного числа в едите!!!!!!!!!!!Ребята подскажите пожалуйста!!!Зарание спасибо!!!!!!!!!

Автор: THandle 10.3.2008, 18:02

Правильно я понял?

Код



procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  try
    StringGrid1.RowCount := StrToInt(Edit1.Text);
    StringGrid1.ColCount := StrToInt(Edit2.Text);
    for I := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[i, 0] := IntTostr(i);
    for I := 0 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[0, i] := IntTostr(i);
  except
    ShowMessage('В Editы введено не число!!! Исправьте пожалууста!!!');
  end;
end;

Автор: dedushka191 10.3.2008, 18:15

Да всё прекрасно работает!!!!!!!!!!!!!Очень благодарен THandle !!))))))))))))