Хеш-функция

[pwdan]

Задача такая: осуществить поиск в телефонном справочнике с помощью хэш-функции. Данные берутся из файла. Возникла проблема с загрузкой данных из файла в хеш-таблицу. Вот код программы. Объясните, пожалуйста, в чем ошибка в функции загрузки из файла и как ее исправить. Спасибо.

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

const
  HTableLen=300;
  PhoneLen=6;
  FIOLen=30;

type
  TPhone=String[PhoneLen];
  TFIO=String[FIOLen];
  TInfo=record
    Phone: TPhone;
    FIO: TFIO;
  end;

  THashItem=record
    Info: TInfo;
    used: Boolean;
  end;

  THashTable=record 
    Size: Integer;
    H: array [0..HTableLen-1] of THashItem;
  end;

  TypFile=File of THashItem;

var
  H: THashTable;
  Inform: TInfo;
  Phone: TPhone;
  x: Integer;

function ValidPhone(Phone: TPhone):Boolean;
var
  i: Integer;
begin
  if Length(Phone)=PhoneLen then
  begin
    i:=0;
    while (i<PhoneLen) or (Phone[i] in ['0'..'9']) do
      i:=i+1;
    Result:=i>PhoneLen
  end
  else
    Result:=False;
end;

procedure InputPhone(var Phone: TPhone);
begin
  while not ValidPhone(Phone) do
    Write('Введите телефон ');
    ReadLn(Phone);
end;

procedure InputInfo(var Info:TInfo);
begin
  InputPhone(Info.Phone);
  Write('Введите ФИО ');
  ReadLn(Info.FIO);
end;

procedure HashInit(var HTable: THashTable);
var
  i: Integer;
begin
  HTable.Size:=0;
  for i:=0 to HTableLen-1 do
    HTable.H[i].used:=False;
end;

function HashKey(Phone: TPhone): Integer;
begin
   Result:=(Ord(Phone[1])*100+Ord(Phone[2])*10+Ord(Phone[3])+
   Ord(Phone[4])*100+Ord(Phone[5])*10+Ord(Phone[6])) mod HTableLen;
end;

//Поиск
function HashFind(var HTable: THashTable; Phone: TPhone; var Info: TInfo): Boolean;
var
  i: Integer;
begin
  i:=HashKey(Phone);
  while HTable.H[i].used and (HTable.H[i].Info.Phone<>Phone) do
    i:=(i+1) mod HTableLen;
  if HTable.H[i].used then
  begin
    Info:=HTable.H[i].Info;
    Result:=True;
  end
  else
    Result:=False;
end;

//Вставка
function HashAdd(var HTable:THashTable; Info: TInfo): Boolean;
var
  Inf: TInfo;
  i: Integer;
begin
  if (HTable.Size=HTableLen-1) or HashFind(HTable, Info.Phone, inf) then
    Result:=False
  else
  begin
    i:=HashKey(Info.Phone);
    while HTable.H[i].used do
      i:=(i+1) mod HTableLen;
      HTable.H[i].used:=True;
      HTable.H[i].Info:=Info;
      HTable.Size:=HTable.Size+1;
  end;
end;

//Ввод данных в хэш-твблицу
procedure Input(var HTable:THashTable; Info: TInfo);
begin
  if HashAdd(HTable, Info) then
    WriteLn('Запись в хэш-таблицу прошла успешно')
  else
    WriteLn('Операция записи в хэш-таблицу отклонена');
end;


procedure NewInfo(var stat: THashTable; Info: TInfo; var n:Integer);
var
  i:Integer;
begin
  Write('Введите количество записей=');
  Readln(n);
  for i:=1 to n do
  begin
    WriteLn('Телефон и ФИО');
    Readln(stat.H[i].Info.Phone, stat.H[i].Info.FIO);
  end;
end;

//данные в файл
procedure TablToFile(var stat: THashTable; var n:Integer; const FileName: String);
var
  F: TypFile;
  i:Integer;
begin
  Assign(F, FileName);
  ReWrite(F);
  for i:=1 to n do
    Write(F, stat.H[i]);
  Close(F);
end;

//данные из файла. Эта функция не работает!
function FileToTabl(Info: TInfo; const FileName: String): THashTable;
var
  f: TypFile;
  i:integer;
begin
  Assign(F, FileName);
  Reset (F);
  WriteLn('Содержимое хэш-таблицы:');
  while not EOF (F) do
  begin
   Read (f, Result.H[i]);
   if Result.H[i].used then
     WriteLn(Info.Phone,' ', Info.FIO);
   end;
  Close (f);
end;

begin
  WriteLn('<Инициализация>');
  HashInit(H);
  WriteLn('<Ввод информации в хэш-таблицу>');
  NewInfo(H, Inform, x);
  TablToFile(H,x,'l.dat');
  H:=FileToTabl(Inform, 'l.dat');
  WriteLn('Поиск');
  InputPhone(Phone);
  if HashFind(H, Phone, Inform) then
    WriteLn('ФИО: ', Inform.FIO)
  else
    WriteLn('Указанный номер телефона не найден');
    ReadLn;
end.

[Anatole]

//данные из файла. Эта функция не работает!

поправте этот участок кода

i:=0;
while not EOF (F) do
begin
Read (f, Result.H[i]);
With Result.H[i]
if Result.H[i].used then 
WriteLn(Info.Phone,' ', Info.FIO);
inc(i);
end;

[Somebody]

Раз это хеш-таблица, может

var t:TInfo;
...
HashInit(Result);
while not eof(f) do
begin
  Read(f, t);
  HashAdd(Result, t);
end;

[pwdan]

Всем спасибо. теперь все работает. Функция получилась такой:

function FileToTabl(FileName: String):THashTable;
var
  f: TypFile;
  fs: THashItem;
begin
  AssignFile(f, FileName);
  Reset(f);
  while not eof(f) do
  begin
    Read(f, fs);
    with fs do
    begin
      WriteLn(Info.Phone:3,Info.FIO);
      Input(Result, Info);
    end;
  end;
  CloseFile(f);
end;

[Somebody]

HashInit не забывай только.