Списковые структуры

[Natalya23]

Используется синтаксис Pascal

var
  Form1: TForm1;
   name1,autors1,year1,number1,out1,kol1,nal1:Text;
  s:string;
implementation
 
{$R *.dfm}
   type
   PNode=^TNode;
   TNode=record
   Info:string;
   autor:string;
   year:string;
   number:string;
   cnt:Integer;
   nal:Integer;
   Next:PNode
   end;
   var q:PNode;[/color]
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
r:PNode;
c:string;
begin
 
 
 Try
 assignFile(name1,'Name.txt');
 Reset(name1);
  for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(name1,s);
   StringGrid1.Cells[1,i]:=s;
  end;
   CloseFile(name1);
 
 except
  assignFile(name1,'Name.txt');
  Rewrite(name1);
 
 
 end;
 
  Try
 assignFile(autors1,'Autors.txt');
 Reset(autors1);
  for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(autors1,s);
   StringGrid1.Cells[2,i]:=s;
  end;
   CloseFile(autors1);
 except
  assignFile(autors1,'Autors.txt');
  Rewrite(autors1);
 
 end;
 
  Try
 assignFile(year1,'Year.txt');
 Reset(year1);
  for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(year1,s);
   StringGrid1.Cells[3,i]:=s;
  end;
   CloseFile(year1);
 except
  assignFile(year1,'Year.txt');
  Rewrite(year1);
 
 end;
 
  Try
 assignFile(number1,'Number.txt');
 Reset(number1);
 for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(number1,s);
   StringGrid1.Cells[5,i]:=s;
  end;
   CloseFile(number1);
 except
  assignFile(number1,'Number.txt');
  Rewrite(number1);
 
 end;
 
 Try
 assignFile(kol1,'kol.txt');
 Reset(kol1);
 for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(kol1,s);
   StringGrid1.Cells[6,i]:=s;
  end;
   CloseFile(kol1);
 except
  assignFile(kol1,'kol.txt');
  Rewrite(kol1);
 
 end;
 
  Try
 assignFile(out1,'Out.txt');
 Reset(out1);
    for i:=1 to Form1.StringGrid1.RowCount do
  begin
   Readln(out1,s);
   StringGrid1.Cells[4,i]:=s;
  end;
   CloseFile(out1);
 except
  assignFile(out1,'Out.txt');
  Rewrite(out1);
 
 
 end;
 i:=1;
 c:='';
 new(r);
 r.Info:=StringGrid1.Cells[1,i];
 r.autor:=StringGrid1.Cells[2,i];
 r.year:=StringGrid1.Cells[3,i];
 r.number:=StringGrid1.Cells[4,i];
 r.cnt:=Strtoint(StringGrid1.Cells[5,i]);
 r.nal:=Strtoint(StringGrid1.Cells[6,i]);
 r.Next:=nil;
q:=r;
                  r:=q^.Next;
 
for i:=2 downto Form1.StringGrid1.RowCount-2 do begin new(r);
                  with r^ do  begin
                                         Info:=StringGrid1.Cells[1,i];
                                         autor:=StringGrid1.Cells[2,i];
                                         year:=StringGrid1.Cells[3,i];
                                         number:=StringGrid1.Cells[4,i];
                                         cnt:=StrtoInt(StringGrid1.Cells[5,i]);
                                         nal:=Strtoint(StringGrid1.Cells[6,i]);
                                         Next:=nil;
                                        end;
                  r:=r^.Next;
                 end;     
 
end;

Не могли бы мне подсказать, почему в односвязном списке после активации формы у меня появляется только первый элемент, а остальные он как-будто не находит(((Что-то неправильно?

Модератор Toucan:
Убрал цветовыделение, добавил тег syntax

[Circiter]

2Natalya23
Вы какую-то глупость там написали. :) Для внесения ясности, рекомендую вам нарисовать ваш связанный список на бумаге. Поле Next должно содержать адрес следующего элемента списка.

Конкретно по вашему коду возникли следующие вопросы. Например, зачем вам нужны строки 125-132? Их следует удалить. Также непонятно, почему в 136 строке использовано ключевое слово downto вместо to. Надо бы исправить. Да и цикл тот стоит начинать с единицы, а не с двойки.

По существу, ошибка вот в чем. Допустим вы хотите добавить добавить новый элемент в начало списка. Для этого вам нужно создать этот элемент через new(r), заполнить поля и положить в поле Next адрес начала списка, уже построенного до этого момента. Я так понял, на начало списка у вас указывает q, поэтому надо в 144 строке писать не Next:=nil, а Next:=q. И уже после этого можно "направить" q на только что выделенный новый элемент, q:=r. А в 133 строке, перед построением списка, q должна быть инициализирована нулевым указателем, q:=nil.

Если же вы хотите добавить новый элемент в конец списка, то удобно будет завести ещё одну переменную-указатель, специально для хранения адреса конца. То есть, в результате у вас будет две переменные, q и, скажем, e; одна будет указывать на начало, а другая на конец, причем обе изначально равны nil. После того как вы создали новый элемент через new (положив в поле Next значение nil), вы должны проверить чему равно значение e, если там по-прежнему хранится нулевой указатель, т.е., если список ещё пуст, то вы должны всего-лишь запомнить только что созданный первый элемент: q=r; e=r. В противном случае, если элементы в списке уже есть, то вы должны связать последний до этого имевшийся элемент списка с новым, т.е., выполнить e^.Next=r; а потом "передвинуть" указатель конца списка, чтобы он указывал на новый настоящий конец списка: e=r.

Вот я вам предложил два способа пополнения списка; какой из них вы пытались применить я так и не понял, поэтому выбирайте сами. И ещё раз напоминаю о трюке с бумажкой.

P.S.: При работе с типизированными указателями на записи правильнее все-таки писать q^.Next, а не q.Next, хотя object pascal позволяет использовать оба варианта (это нужно для красивой работы с классами).

[Natalya23]

Спасибо большое!)Я там столько всего перепробовала, что без вас бы точно не разобралась!)