[mqindrik]

fsggswgwer

[v1s2222]

Насчет списков: что так сложно найти и прочитать это дело в интернете?
http://www.delphibasics.ru/TList.php
http://www.cyberforum.ru/delphi-begi...read53496.html
http://forum.oszone.net/thread-41558.html

[mqindrik]

ehehethehe

[v1s2222]

Честно говоря вопроса так и не понял.

Код:

Program Project1;
...

type
PList=^TList;
TList=record
  s:string;
  Next,Prev:PList;
end;
 
procedure AddToList;
var first,Curent,NewI:PList;
s:string;
begin
repeat
 readln(s);
 new(NewI);
if First=nil then First:=NewI;
NewI^.s:=s;
NewI^.Prev:=Curent;
if Curent<>nil then Curent^.Next:=NewI;
Curent:=NewI;
until s='';
end;

begin
  AddToList; 
  ReadLn;
end.

[mqindrik]

wergfergerg

[v1s2222]

Так же, как и не в консольном... Только вывод отличается, например не в StringGrid, а в цикле Write... Пример работы со списками я и так приложил, то и есть в консоли...