VPF::как записывать значения в "шапку"Stringgrid

dedushka191

Дата 10.3.2008, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

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

THandle

Дата 10.3.2008, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

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

Код



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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »