инициализация хэша, массив из списков Опции

[Insomnia]

Помогите пожалуйста разобраться. Создаю хэш-таблицу со списками. В конструкторе списка вылетает с ошибкой нарушение доступа.

[Insomnia]

спасибо за процедуру. ДЕйствительно работает. Так же исправил неккоректное чтение и вывод в таблицу. Вот только все не пойму как мне считывать из конкретной строки файла? И у меня время от времени выскакивает ошибка , из-за чего так происходит ?

Добавлено через 5 мин.

procedure TForm1.add_wordClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
    StringGrid_All.Visible := false;
    Panel_words.Visible := true;
    file_name := OpenDialog1.FileName
  end
end;


procedure TForm1.bb_seach_okClick(Sender: TObject);
  var
    english, russian : TString;
    obj : TWord;
    f : TextFile;
begin

 Panel_words.Visible := false;
 Panel_seach_word.Visible := False;
 russian := Ed_searh.Text;
 if Search_in_Hash_Table(russian, HT_File) then
                                            begin
                                              MessageDlg('Слово найдено!!!', mtInformation, [mbOk], 0);
                                              StringGrid_All.Visible := true;
                                              assignfile(f, OpenDialog1.FileName);
                                              reset(f);
                                              Readln(f, russian); // я считываю только 1 строку в файле ? 
                                              Readln(f, english);
                                              if not eof(f) then readln(f);
                                              Obj := TWord.Create(russian, english);
                                              SetCells(StringGrid_All, Obj, 1); // вносим данные в таблицу
                                            end
                                           else
                                             MessageDlg('Слово не найдено!!!', mtInformation, [mbOk], 0)
end;

Сообщение отредактировано: Insomnia - 7.05.2012 22:03