Главная страница
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.102 c
2-1139900998
r.o.o.t
2006-02-14 10:09
2006.03.05
Непонятки в трехзвенке


3-1136992846
franchuk
2006-01-11 18:20
2006.03.05
передача данных из БД в Microsoft Excel


2-1139987912
Древолаз
2006-02-15 10:18
2006.03.05
Мастера помогите советом!( AbstractError)


15-1138986712
syte_ser78
2006-02-03 20:11
2006.03.05
Попинайте плиз новый дизайн


1-1139000855
JIurasdfsdf
2006-02-04 00:07
2006.03.05
Перетащить черную линию на форме?