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

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

> Subdigger

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

Может это поможет
вместо
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;

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

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