У меня курсовой.. Иначе я бы к ним и не прикоснулся бы даже...
Т.е. по идее все правильно, а дело в "p"?
-------- Во избежании флуда...
Сделал, сохраняет все отлично... но сохраняет все в сплошную строку... Как быть? Добавить 13й символ в конце? И как потом считывать?
-------- Туда же)
Сделал, при помощи Writeln, а не Write...
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Вот.. Переделал, только список грузит в обратном порядке, как инвертировать?? Т.е. был 1 2 3 4, стал 4 3 2 1. В первом случае head = 1, во втором head = 4.. Вот код:
Код: Выделить всё
procedure TForm1.Button9Click(Sender: TObject);
var F:Textfile;
Str:string;
begin
p:=head;
assignFile(F,'save.active');
rewrite(F);
while p^.next<>nil do
begin
str:=p^.Item;
writeln(F,str);
p:=p^.next;
end;
closeFile(F);
end;
procedure TForm1.Button10Click(Sender: TObject);
var F:Textfile;
Str:string;
q:PElem;
cnt,eln:integer;
begin
assignFile(F,'save.active');
Reset (F);
p:=nil;
cnt:=0;
eln:=0;
while 100>cnt do
begin
new(q);
readln(F,str);
q^.Item:=str;
q^.next:=p;
head:=q;
p:=q;
q:=q^.next;
cnt:=cnt+1;
end;
closefile(F);
end;
цифра 100 в while, потому что я не знаю кол-во строк в файле, EOF не работает... выбрасывает с ошибкой ввода-вывода..
Помогите доделать пожалуйста...