Списки-данных как работать с ними Delphi

Статус
Закрыто для дальнейших ответов.

Abrogen

Убью нахер
Регистрация
18.08.2010
Сообщения
190
Знаю что не по адресу пришёл с эти вопросом, но может всё-таки есть народ знающие Delphi
Код:
type
  PoleSv = ^Auto;
  Str = string[15];
  Auto = record
    MarcAuto : Str;
    SpeedMax : real;
    Next : PoleSv;
  end;
 
procedure Init(var u : PoleSv);
  var x, y : PoleSv;
      i, n : integer;
  begin
    ReadLn(n);
    u := Nil;
    for i := 1 to n do
      begin
        New(y);
 
        ReadLn(y^.MarcAuto);
 
        ReadLn(y^.SpeedMax);
 
        y^.Next := Nil;
 
        if u = Nil Then
          u := y
        Else
          x^.Next := y;
 
        x := y;
      end;
  end;
Кто знает объясните, пожалуйста, как эта процерура работает. Я в списках-данных вообще ничего не понимаю, а скоро экзамен. :excl:
 

minority

generator randomly php
Регистрация
02.05.2010
Сообщения
443
Нужно читать книги скорее всего. Меньше месяца назад сдал курсовую бд Delphi+sql=) все что нужно нашел в книгах.
 

Abrogen

Убью нахер
Регистрация
18.08.2010
Сообщения
190
Нужно читать книги скорее всего.
Были бы книги, был бы другой разговор.

Всё вроди бы ясно, Туплю в этой части кода:
Код:
        if u = Nil Then
          u := y
        Else
          x^.Next := y;
 
        x := y;
Что он делает? Зачем здесь x вообще, какова его роль? Условие возвращает true вроде вообще только один раз.
 

minority

generator randomly php
Регистрация
02.05.2010
Сообщения
443
Код:
   if u = Nil Then
          u := y
        Else
          x^.Next := y;
 
        x := y;
Если u равен Nil то u присваивается значение y, если нет то (наверное) список x переключается на след. элемент и ему присваивается значение y. x присваивается значение y. Как то так :) Книжков много в нети. Делфи элементарный язык за день можно прогать.
 

Abrogen

Убью нахер
Регистрация
18.08.2010
Сообщения
190
Если u равен Nil то u присваивается значение y, если нет то (наверное) список x переключается на след. элемент и ему присваивается значение y. x присваивается значение y. Как то так Книжков много в нети. Делфи элементарный язык за день можно прогать.
Хватит обзываться! Я понимаю, что такое условие и я знаю, что x^.Next указывает на следующий объект. Я не могу себе представить, что такое списки и как они работают, следовательно не могу понять.

Я таки разобрался :)
Вот ссылка на тему в форуме, где мне всё объяснили Delphi для начинающих
 
Статус
Закрыто для дальнейших ответов.
Верх Низ