[integer]

Здравствуйте , не нашел ответа.

1.имеется элемент "таблица", рядом кнопка, по нажатию на кнопку в таблице должно появиться десять строк и десять столбцов, причем каждая ячейка должна быть пронумированна (<номер строки><номер столбца>) : например (1.1) (1.2).

я вот пишу цикл чтобы вставить десять строк, но как ячейки пронумировать? можете привести пример того , что должно быть написано в кнопке?

2. под первой таблицей(вышеописанной) вторая, по нажатию на вторую кнопку строка из первой таблицы переноситься во вторую. аналогично - что должно быть написано в кнопке?

заранее спасибо.

[Страдалецъ]

...имеется элемент "таблица",...

Это вы про TStringGrid?

[integer]

да, TStringGrid, или надо другой элемент использовать?

[Konrad]

Если чесно не совсем понятно:
очень важно чтобы программа сама добавляла строки?
Не легче в свойствах StringGrid порыться?

[integer]

да, в том то и дело, это условие(это ведь не для работы, у учебное задание), нужно чтобы таблица была пустая, и при нажитии кнопки "заполнить" добавлялось 10 строк с пронумированными ячейками, и в эти ячеки можно заносить информацию

[Nyctos Kasignete]

Не поняла, в чем проблема... Ну добавляйте, как обычно, изменяя свойства RowCount и ColCount.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Byte;
begin
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 10;
  for i := 0 to 9 do
    for j := 0 to 9 do
      StringGrid1.Cells[j, i] := IntToStr(i + 1) + '.' + IntToStr(j + 1);
end;

[Страдалецъ]

Ну тогда все просто:

Код:

procedure TForm24.Button1Click(Sender: TObject);
Var R,C: Integer;
begin
 StringGrid1.RowCount := 11;
 StringGrid1.ColCount := 11;
 for R := 1 to StringGrid1.RowCount - 1
 do StringGrid1.Cells[0,R] := IntToStr(R);
 for C := 1 to StringGrid1.ColCount - 1
 do StringGrid1.Cells[C,0] := Chr(C+64);
end;