Списки

[sunman]

Добрый вечер уважаемые.
Не подскажите разумно ли данное действие к текстовым файлам?

type
TIgr=record
  name : string[25];
  cost : string[8];
  age : string[3];
  amount : string[8];
end;
PList = ^TList;
TList = record
  Data : TIgr;
  Next,Prev : PList;
end;

procedure LoadRec(R:TIgr);
begin
AssignFile(f,'D:\Kurs\Igr.txt');
while not Eof(F) do
begin
  Read(F,R.Name);
  Read(F,R.cost);
  Read(F,R.age);
  Read(F,R.amount);
  AddRec(R);
end;
end;

procedure AddRec(R:TIgr);
begin
  if Head = Nil then
  begin
    New(Cur);
    Head := Cur;
    end  else
  begin
    New(Cur^.Next);
    Cur := Cur^.Next;
  end;
  Cur^.Next:=Nil;
  Cur^.Data.Name:=R.Name;
  Cur^.Data.cost:=R.cost;
  Cur^.Data.age:=R.age;
  Cur^.Data.amount:=R.amount;
end;

Код мой (правда написан все же с помощью одного очень доброго человека), но до этого был типизированный файл и в нем (если я не ошибаюсь в терминах) хранятся компоненты, т.е. запись которую можно легко опознать. В общем в чем проблема.. как правильно прочитать файл, чтобы не получилось так, что половина одной записи и половина другой вывелась (понимаю, что для текстовика признак конца строки EOLN, но у меня сейчас только идея читать по 4 строки)? Плюс мне нужно, допустим первую запись выводить в поля(формы) едит(ну с этим я думаю сам разберусь, но если есть нюансы, то был бы благодарен за их описание) Писать в текстовик, одно из требований курсовой.

И если есть какая нибудь инфа по тому как перемещаться по списку, то очень прошу поделиться.

[Hacker19_90]

Ну если файл типизированный, то считывай структурами!

[sunman]

Сообщение от Hacker19_90

Ну если файл типизированный, то считывай структурами!

Если бы был типизированный то хлопот не было бы файл текстовый.
забыл добавить описание:
var
Head,cur:PList; f:Text; R:TIgr;

Вот еще идея была использовать два файла типизированный и текстовый.. Типизированный как промежуточный, а в текстовый заносить конечный результат

[Hacker19_90]

Я чтоб не мучиться с текстовиками на курсовой обошёл эту проблему путём создания главного файла базы и его зависимого текстового.

[sunman]

Все еще остается вопрос, как организовать перемещение по двусвязному списку с помощью кнопок TButton?

[Stilet]

Ну вот смотри, предположим Cur указыват на элемент списка
Тогда по нажатию на кнопку "вперед"

 if cur^.next<>nil then cur:=cur^.Next;

А "назад"

 if cur^.Prev<>nil then cur:=cur^.Prev;

[sunman]

Сообщение от Stilet

Ну вот смотри, предположим Cur указыват на элемент списка
Тогда по нажатию на кнопку "вперед"

 if cur^.next<>nil then cur:=cur^.Next;

А "назад"

 if cur^.Prev<>nil then cur:=cur^.Prev;

Отлично большое спасибо)