Род Стивенс

Книги → Delphi. Готовые алгоритмы → Глава 4. Массивы

raise ElnvalidOperation.Create (

'Индекс колонки и строки должен быть больше или равен нулю.')

// Нужно ли формировать больший массив меток, if (r>Max^_Row) then begin

// Копирование старых значений в новый массив. GetMem(new_array,(r+1)*SizeOf(TSparseCell)); for i := 0 to Max_Row do

new_arrayA[i] := RowSentinelA[i] ;

// Освобождение старого массива, if (Max^Row>=0) then FreeMem(RowSentinel) t RowSentinel := new_array;

// Создание новых меток. for i :=Max_Row+l to r do begin

New(bottom_sentinel) ; bottoin_sentinelA.Col := 2147483647; bottom_sentinelA.NextCell := nil;

RowSentinelA{i].NextCell := bottom_sentinel;

RowSentinelA [i-J-redl := -1;

end; ~ j

Max_Row := r; 1

end;

\

// Нахождение ячейки со столбцом >= с. cell_ptr := @RowSentinelA[г] ; next_ptr := cell_ptrA.NextCell; while (next_ptrA.Col<c) do begin

cell_ptr := next_ptr; next_ptr := cell_ptrA.NextCell; end;

И ТЭКГ.0

// Если значение равнщрнауению по умолчанию.

if (new_value=DEFAULTlvALUE) then

begin

// Если мы нашли ячейку для данного столбца, удаляем ее.

if (next_ptrA.Col=c) then

begin

cell_ptrA.NextCell := next_ptrA.NextCell ;

Dispose(next_ptr); end; end else begin

// Значение не является значением по умолчанию.

← предыдущая следующая →

Страницы раздела: 1 2 3 4 5 6 7 8 9

Публикация компанией Dropbox кода Zulip – средства общения для IT-разработчиков

20.11.2015
Одной из одобрительно встреченных программистами инициатив, реализующихся в рамках акции Hack Week, стала публикация исходного кода приложения Zulip – веб-приложения для общения между собой разработчиков в сфере IT-технологий.

Объединение ОС Android и Chrome

17.11.2015
Слухи об объединении двух крупнейших ОС компании Google, Android и Chrome, гуляют по Интернету уже более 5 лет, но до сих пор этого не случилось, хотя очевидно, что с течением времени эти ОС становятся всё более похожими: так, в последнее время появилось немало Android-устройств, к которым прилагаются клавиатуры, а Chrome OS «научилась» работать с сенсорными экранами.

Конференция Linux Piter 2015

15.11.2015
Уже почти через неделю в Санкт-Петербурге впервые в истории пройдёт конференция, посвящённая проблемам свободного программного обеспечения – Linux Piter 2015.