[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;

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

Опять опоздал

[integer]

Извиняюсь за глупые вопросы, но совсем не занимался визуальным программированием.
Nyctos Kasignete
спасибо.
а по поводу второго вопроса? как перенести строку из таблицы в таблицу?

[integer]

Страдалецъ
спасибо

[Nyctos Kasignete]

Проще всего, наверное, так

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  StringGrid2.ColCount := StringGrid1.ColCount;
  StringGrid2.Rows[1].AddStrings(StringGrid1.Rows[1]);
end;

Скопировали вторую строку из StringGrid1 в StringGrid2.

P.S. А может, даже так (лучше)

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  StringGrid2.ColCount := StringGrid1.ColCount;
  StringGrid2.Rows[1].Assign(StringGrid1.Rows[1]);
end;

[integer]

ясно, большое спасибо.