Здравствуйте, во время работы над курсовой возникла следующая проблема.
Я создал хеш-таблицу, разрешил проблему коллизий при помощи цепочек переполнения и начал работу над считыванием этой таблицы в файл. При первом запуске программы (т.е., когда файл не создан) файл, естественно, создается и добавление записей и поиск работают нормально. Затем я сохраняю свою хеш-таблицу при помощи Write(base,HashTable[i])
, где base
- переменная файла. Но при повторном открытии файла, вместо моих цепочек переполнения у меня стоит один 0 в каждой строке массива, где была цепочка. При этом программа часто крашится с ошибкой - Read of Adress
.
Вопрос - при считывании данных массива, каждый элемент которого является однонаправленным списком (т.е цепочкой переполнения), в файл, нужно ли мне проходиться по каждому элементу однонаправленного списка каждой строки массива, или считывание и запись в файл верны, но ошибка в другом месте?
Процедура сохранения в файл
procedure SaveTheChange(HashTable:array of ListFl);
var i:integer;
begin
assignfile(base,'base.txt');
rewrite(base);
for i:=1 to 10 do
begin
Write(base,HashTable[i]);
end;
Writeln('Изменения в файле успешно сохранены.');
closefile(base);
end;
Процедура считывания из файла:
procedure mainFileOpen;
var i,j:integer;
begin
i:=1;
if fileExists('base.txt')
then
begin
reset(base);
While not Eof (base) do
begin
Read(base,HashTable[i]);
Inc(i);
end;
closefile(base);
Writeln(' Файл успешно считан.');
end
else
begin
Rewrite(base);
Writeln(' Файл успешно создан.');
Closefile(base);
end;
end;
type
Node=^Link;
Link=record
Key:String;
Data:String;
Cost:Integer;
Next:Node;
end;
ListFL=record //тип,описывающий каждый элемент массива(однонаправленный список)
First,Last:Nod e; // первый и последний элементы однонаправленного списка
Str:String[255]; // каждый элемент списка
end;
var
base: file of ListFl;
HashTable:Array [0..HashSize] of ListFL; // массив для хэш-таблицы