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

[Insomnia]

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

[IUnknown]

Так. Сорри, это мой глюк, я открывал старый файл txt...

По поводу твоей программы... Объясни мне, зачем вот эти пляски:

 constructor Class_List.Create;
 begin
   inherited Create;
   new(L);  // Вот эта пляска зачем?
   L^.next := nil;
 end;

, и потом, отсюда же вытекает:

 function Class_List.search_to_list;
 var
   p : TList;
 begin
   result := false;
   p := L^.next; // Вот это непонятное действие.
   while assigned (p) do
   begin
     if p^.info.russian <> arussian then
                                      p := p^.next
                                    else
                                      result := true;
   end;
 end;

Смотри, насколько все проще (и, что характерно, сбоев не вызывает):

 constructor Class_List.Create;
 begin
   inherited Create;
   L := nil; // Ну ПУСТОЙ же список после создания экземпляра класса !!!
 end;

// во втором месте:
function Class_List.search_to_list;
var
   p : TList;
begin
   result := false;
   p := L; // А раз список был пустой - то и начинаем с начала
   while assigned (p) do
   begin
      if p^.info.russian <> arussian then
         p := p^.next
      else
         result := true;
   end;
end;

А ты чего делал? Создавал список с заглавным (заметь, неинициализированным!!!) звеном, потом добавлял объекты в начало списка (в Class_List.add_to_list, посмотри внимательно, новый-то элемент добавляется ПЕРЕД существующими, а не ПОСЛЕ), а потом, думая, что надо пропустить заглавный элемент, ты пропускал инициализированные данные, и начинал работать с мусором. Вот тебе и глюки. Так что либо выкинь заглавное звено, либо добавляй данные в конец списка.