Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

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

 
Daria   (2006-02-16 11:52) [0]

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


 
umbra ©   (2006-02-16 12:46) [1]

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);
{..............................................}


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

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


 
umbra ©   (2006-02-16 13:04) [3]

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


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

откуда???


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

да


 
umbra ©   (2006-02-16 13:08) [6]


> откуда???
>

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

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


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

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


 
umbra ©   (2006-02-16 13:12) [8]


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
2-1139933356
Yeg
2006-02-14 19:09
2006.03.05
БД для Интернета


4-1134719932
Kot_
2005-12-16 10:58
2006.03.05
Бездействие пользователя в программе.


15-1139772246
Nick Denry
2006-02-12 22:24
2006.03.05
Подскажите компонент


2-1140088176
PoetOfDelphi
2006-02-16 14:09
2006.03.05
Событие OnDblClick для LookUpComboBox


15-1139566520
Val
2006-02-10 13:15
2006.03.05
Знатокам немецкого: просьба исправить ошибки.