[artemavd]

Как будут нумероваться и какие адреса будут имеет ячейки в STringGrid-е, если один столбец разбить на два подстолбца? Например если я разбиваю столбец [1,1], то какие номера ячеек будут у двух новых подстолбцов?

[lmikle]

Соответсвенно, [1,x] и [2,x] (или [x,1] и [x,2] - не помню что сначала идет - столбец или строка...)

[artemavd]

А вместо икса нисего писать не наддо?)

[artemavd]

А можете кто нибудь подсказать процедуру разбиения столбца на подстолбцы?)

[lmikle]

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

А вместо икса нисего писать не наддо?)

В месте икса - кординаты строки.

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

А можете кто нибудь подсказать процедуру разбиения столбца на подстолбцы?)

StringGrid это "сетка" как в экселе (а не как таблица в ворде).
Ты должен увеличить кол-во столбцов на 1, а потом данные из всех столбцов, больше чем разбиваемый, перенести вправо на 1 ячейку.

примерно так:

Код:

procedure TForm1.SepCol(ACol : Integer);
var
  I,J : Integer;
begin
  StringGrid1.ColCount := StringGrid1.ColCount + 1;
  For I := StringGrid1.ColCount - 1 DownTo ACol + 1 Do
    For J := 0 To StringGrid1.RowCount - 1 Do
      StringGrid1.Cells[I+1,J] := StringGrid1.Cells[I,J];
end;

[artemavd]

А можете кто нибудь подсказать процедуру разбиения столбца на подстолбцы?)/ Очень надо пожалйста!)0

[artemavd]

А есть у кого нибудь исходник в коде как это сделано посмотреть?)

[lmikle]

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

А есть у кого нибудь исходник в коде как это сделано посмотреть?)

А читать умеем?
Тебе же написал.

[artemavd]

Я пробовал, но он выводит ошибку типа необъявлен "SepCol".(((

[lmikle]

Ну естественно, ты добавть ее в описание класса формы.

[artemavd]

Тоже добавлял и все равно не получается((

[lmikle]

точный текст ошибки в студию.

И как ты добавил код тоже покажи.