| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

посчитать максимольное количество строк для разбивки ячейки

Daria ©   (2006-02-16 11:52:00) 

в таблице word есть объединенные строки. как посчитать для ...split(?,1) на сколько максимально строк можно разбить столбец

---

Daria   (2006-02-16 13:18:00) [1]

огромное спасибо!!!!

---

umbra   (2006-02-16 13:12:00) [2]

> ой, как странно. а если просто запустить , то работает

просто среда разработки показывает все исключения, и обработанные и необработанные. Это, в общем то, полезно.

---

umbra   (2006-02-16 13:08:00) [3]

> откуда???
>

из среды разработки делфи.

попробуйте запустить программу саму по себе.

---

Daria   (2006-02-16 13:08:00) [4]

ой, как странно. а если просто запустить , то работает :)

---

Daria   (2006-02-16 13:07:00) [5]

да

---

Daria   (2006-02-16 13:05:00) [6]

откуда???

---

umbra   (2006-02-16 13:04:00) [7]

сообщение выводится при запуске проекта из ИДЕ?

---

Daria   (2006-02-16 13:01:00) [8]

спасибо большое. вот только есть проблема. если число четное, то все делится, если нечетное (например, можно разбить только на 3 строки, то выводится ошибка "Число д.б. кратно 3"

---

umbra   (2006-02-16 12:46:00) [9]

function TrySplit(cell: Variant; rows: Integer): boolean;
begin
 Result := true;
 try
   cell.Split(NumRows:=rows);
 except
   Result := False;
 end;
end;

{используем эту функцию где-то в коде}

var
 rows: integer;
 cell: variant;
{.........................................}
 rows := 2;
 while not TrySplit(cell, rows) do
   Inc(rows);
{..............................................}


---

Наверх