Не пойму, почему не может определять идентификаторы. Указатели. DELPHI

[zaira001002]

Где у меня ошибка? Вроде все задано правильно((

type
  TDec = ^Dec;
  Dec = record
    Elem:     Integer;
    NextElem: TDec;
    PrevElem: TDec;
  end;

var
  First  : TDec = nil;
  Last   : TDec = nil;
  Current: TDec;

// Процедура добавления элемента в начало списка
procedure AddElemBeginDec (var First, Last: TDec; TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= First;
  Current^.PrevElem:= nil;
  if First<> nil  then First^.PrevElem:= Current
                  else Last:= Current;
  First:= Current;
end;

// Процедура добавления элемента в конец списка
procedure AddElemEndDec (var First, Last: TDec; TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= nil;
  Current^.PrevElem:= Last;
  if Last<> nil then Last^.NexElem:= Current;
                else First:= Current;
  Last:= Current;
end;

[Streletz]

Вы пытаетесь в записи в качестве полей использовать тот же тип записи. Поэтому, что с указателями, что без них, ничего и не получится.
Кроме того, совершенно непонятно, что делает этот код. Реализация сортировки, дерева?.. Для этого уже давным давно придумали другие, более совершенные, подходы.

[zaira001002]

Спасибо)))))

[Streletz]

Пожалуйста!

[zaira001002]

Не могли бы все же подсказать где можно разобраться с темой на указатели)))) я была бы очень благодарна))) Потому что, я никак не могу полностью вникнуть в это, где-то , что-то недопонимаю)))) Может вы могли бы дать мне ссылку, тем более вы говорили, что есть более совершенные подходы)?

[Аватар]

Вы пытаетесь в записи в качестве полей использовать тот же тип записи. Поэтому, что с указателями, что без них, ничего и не получится.

Streletz, что-то вы придумали...

zaira001002, почти все у вас нормально, закоментировал кое-что лишнее и ошибочку исправил

type
  TDec = ^Dec;
  Dec = record
    Elem:     Integer;
    NextElem: TDec;
    PrevElem: TDec;
  end;

var
  First  : TDec = nil;
  Last   : TDec = nil;
//  Current: TDec;

// Процедура добавления элемента в начало списка
//procedure AddElemBeginDec (var First, Last: TDec; TempElem: Integer);
procedure AddElemBeginDec (TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= First;
  Current^.PrevElem:= nil;
  if First<> nil  then First^.PrevElem:= Current
                  else Last:= Current;
  First:= Current;
end;

// Процедура добавления элемента в конец списка
//procedure AddElemEndDec (var First, Last: TDec; TempElem: Integer);
procedure AddElemEndDec (TempElem: Integer);
var
  Current: TDec;
begin
  New(Current);
  Current^.Elem    := TempElem;
  Current^.NextElem:= nil;
  Current^.PrevElem:= Last;
//  if Last<> nil then Last^.NexElem:= Current;
  if Last<> nil then Last^.NexElem:= Current
                else First:= Current;
  Last:= Current;
end;

[zaira001002]

Спасибо большое))))))))))))))

[zaira001002]

Кстати, выдает ошибку " Undeclared identifier 'Elem' at line 20"( 20 строка получается,если считать с моего выше фрагмента, то есть строка след:

 Current^.Elem    := TempElem;

И таких ошибок много, везде, где использовала "^.", прошу прощения, что не могу выразиться правильно, я едва разобралась с этой темой)))

[Аватар]

  if Last<> nil then Last^.NextElem:= Current

4-ая строка снизу. Больше нет. Код нормально скопируйте

[zaira001002]

Я это исправила, но у меня ,по- прежнему, ошибки там, где я пишу , например:

 Current^.Elem:= TempElem;