Род Стивенс

Книги → Delphi. Готовые алгоритмы → Глава 2. Списки

begin

// Создание новой ячейки.

New(new_cell) ;

new_cell.LastName := new_last_name;

new_cell.FirstName := new_first_name;

newcell.SSN := new_ssn; new_cell.Gender := new_gender; new_cell.JobClass := new_job_class;

// Вставка ячейки в потоки имен.

// Нахождение следующей ячейки. cell_ptr:=0TopSentinel;

combinecLnames =Format (' %s, %s', [new_last_name,new_first_name]); while (Format ('%s,%s',

[cell_ptrA.LastName,cell_ptrA.FirstName])<combined_name) do cell_ptr := cell_ptrA.NextName;

new_cellA.NextName := cell_ptr; new_cellA.PrevName := cell_ptrA.PrevName; newAcellA.PrevNameA.NextName := new_cell; cell_ptrA.PrevName := new_cell;

// Вставка ячейки в поток номера социального страхования.

// Нахождение предыдущей ячейки.

cell_ptr t= BTopSentinel; . 1

while (cell_ptrA.NextSSNA.SSN<new_ssn) do cell_ptr := cell_ptrA.NextSSN;

new_cellA.NextSSN := cell_ptrA.NextSSN; cell_ptrA.NextSSN := new_cell;

// Вставка ячейки в поток рода работы.

// Нахождение предыдущей ячейки. cell_ptr := @TopSentinel;

while (cell_ptrA.JobClass<new_job_class) do cell_ptr := cell_ptrA.NextJobClass;

new_cellA.NextJobClass := cell_ptr; new_cellA.PrevJobClass := cell_ptrA.PrevJobClass; new_cellA.PrevJobClassA.NextJobClass := new_cell; cell_ptrA.PrevJobClass := new_cell;

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

Страницы раздела: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Публикация компанией 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.