Главная страница
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.03 c
15-1139679709
Ермак
2006-02-11 20:41
2006.03.05
Вопрос к модератору


15-1139516547
Bogdan1024
2006-02-09 23:22
2006.03.05
помогите придумать тему для программы


2-1140265408
BaBayka007
2006-02-18 15:23
2006.03.05
Цикл?.... а вот как - что-то совсем у меня ни как.....:)


2-1140010954
micky_
2006-02-15 16:42
2006.03.05
Плавающие связи


15-1139312761
_RusLAN
2006-02-07 14:46
2006.03.05
Программа для создания резервных копий проэктов