Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Вниз

pointer   Найти похожие ветки 

← →
Subdigger   (2003-06-17 12:01) [0]

Добр челы подскажите в чём глюк
при втором проходе "new(mur)" выдаёт ассесс виолатион


function TDbase.LoadFromFile(fileName: string;size:longint): byte;
var
f:file;
mur:MPList;
begin
if list=nil then create
else
clear;
AssignFile(f,filename);
try
reset(f,1);
while not eof(f) do
begin
new(mur);
mur.next:=nil;
mur.prev:=list;
if list<>nil then
list.next:=mur;
try
blockread(f,mur.cell^,size);
list:=mur;
except dispose(mur);
end;
end;
except
end;
end;

---

← →
Digitman   (2003-06-17 12:04) [1]

да быть того не может

---

← →
Palladin   (2003-06-17 12:06) [2]

потому что тут написана полная чушь, с высшим образованием...

---

← →
Subdigger   (2003-06-17 12:28) [3]

не понял

---

← →
Anatoly Podgoretsky   (2003-06-17 12:39) [4]

А вроде как по русски написано.

---

← →
Юрий Федоров   (2003-06-17 12:48) [5]

Да ладно, что вы накинулись на человека...
1. Кто такой MPList ?
2. Кто такой list ?
3. Что за строка такая : if list=nil then create

---

← →
Юрий Зотов   (2003-06-17 12:57) [6]

Народ, че-то Вы и правда... IMHO, перебор.

> Subdigger

Юрий Федоров прав, желательно видеть объявления переменных и знать, что такое Create. Не помешала бы пара слов и о самой задаче. Похоже, это построение двунаправленного списка, но не только. Лучше бы уточнить.

---

← →
icWasya   (2003-06-17 13:30) [7]

Может это поможет
вместо

if list<>nil then
list.next:=mur;
try
blockread(f,mur.cell^,size);
list:=mur;
except dispose(mur);
end;

написать

try
blockread(f,mur.cell^,size);
if list<>nil then
begin
list.next:=mur;
list:=mur;
end
except dispose(mur);
end;


---

← →
Subdigger   (2003-06-20 11:28) [8]

сенкс 2 АЛЛ
десительно бред какой то
но я уже решил проблемы и всё работает

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c