VPF::Помогите с линейными списками

Denwer

Дата 13.12.2010, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет

Помогите с линейными списками

Я могу добавлять подсписки в основной список.

Как мне добавить элементы в подсписок зная номер подсписка.

Спасибо.

aleksh

Дата 13.12.2010, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 609
Регистрация: 8.7.2008

Репутация: 1
Всего: 13

точно так же, но немного по другому

Denwer

Дата 13.12.2010, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет

Спасибо конечно за столь содержательный ответ! Все понятно, мне никогда ещё так не помогали. Примеров куча, с комментариями. Все за меня сделали. Завтра пойду сдавать.

Это сообщение отредактировал(а) Denwer - 13.12.2010, 16:20

SPrograMMer

Дата 13.12.2010, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: нет
Всего: 6

Цитата(Denwer @ 13.12.2010, 16:16

)

Все за меня сделали. Завтра пойду сдавать

круто, но знаний видимо не осталось smile

--------------------

животное = зверь
законченный гентушник

Rrader

Дата 13.12.2010, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Denwer, если по-простому, показывай, что есть, что сделал

--------------------

Let's do this quickly!
Rest in peace, Vit!

Denwer

Дата 13.12.2010, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет

Процедура добавления подсписков.

Код



  head_d : TMainList;


   Procedure AddSubList();
   var
    curr_elem : TMainList;
   begin
    new(curr_elem);
    new(curr_elem_sub);
    curr_elem^.Data := curr_elem_sub;
   if(head_d = nil)
    then
     begin
      curr_elem^.Next := nil
     end
     else
     begin
      curr_elem^.Next := head_d;
     end;
     head_d := curr_elem;
     ShowSubLists();
  end;

Процедура отображения

Код


   Procedure ShowSubLists();
   var
    curr_elem : TMainList;
    st : string;
   begin
    Form1.ListBox2.Clear;
    n := 0;
    st := '';
    curr_elem := head_d;
   while curr_elem <> NIL do
   begin
    n := n + 1;
    Form1.ListBox2.Items.Add(' sublist - ' + inttostr(n));
    curr_elem := curr_elem^.Next;
   end;
   end;

Кликая по строке листбокса я ловлю номер строки, ну и естественно номер списка.

Код


  procedure TForm1.ListBox2Click(Sender: TObject);
  begin
   if ListBox2.ItemIndex >= 0
   then
  nomer := ListBox2.ItemIndex + 1;
   end;

Ну и потом самое интересное.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 AddElement(nomer);
end;

Добавлено через 2 минуты и 39 секунд
Rrader, Вот все что есть.

Denwer

Дата 14.12.2010, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.6.2007
Где: Харьков

Репутация: нет
Всего: нет

Помогите создать процедуру AddElement(nomer), добавления элемента в подсписок!

Это сообщение отредактировал(а) Denwer - 14.12.2010, 14:00

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »