Передача ListBox и Memo параметрами

[Lauri]

Столкнулся с данной проблемой, пытаюсь перевести все функции из своей программы в отдельный юнит

procedure _FindFunctions(var CodeText: Tmemo;  AllList: tlistbox; NamesList: tlistbox);
var
  list: tstringlist;
  i: integer;
  Name: string;
  poss, cnt, jcnt: integer;
  str: string;
begin
  list := tstringlist.Create;
  //list.LoadFromFile(pchar(FileToProcess));
  List.text := CodeText.Text;
  NamesList.Clear;
  AllList.Clear;
  Alllist.Items.Add('Hello') ;
  for i := 0 to list.Count - 1 do
  begin
    if pos(pchar('function'), list.Strings[i]) <> 0 then
      if pos(pchar('external'), list.Strings[i]) = 0 then
        AllList.Items.Add(Copy(list.Strings[i], 0, Pos(pchar(';'), list.Strings[i]) - 1));
    if pos(pchar('Function'), list.Strings[i]) <> 0 then
      if pos(pchar('external'), list.Strings[i]) = 0 then
        AllList.Items.Add(Copy(list.Strings[i], 0, Pos(';', list.Strings[i]) - 1));
  end;
  for i := 0 to AllList.Items.count - 1 do
  begin
    if pos('(', AllList.Items[i]) <> 0 then
      NamesList.Items.Add(Copy(AllList.Items[i], Pos('n ', AllList.Items[i]) + 1, Pos('(', AllList.Items[i]) - Pos('n ', AllList.Items[i]) - 1))
    else
      NamesList.Items.Add(Copy(AllList.Items[i], Pos('n ', AllList.Items[i]) + 1, Pos(':', AllList.Items[i]) - Pos('n ', AllList.Items[i]) - 1));
  end;
  try
    cnt := 0;
    repeat //удаление дублей
      jcnt := NamesList.Items.Count - 1;
      repeat
        if (NamesList.Items[jcnt] = NamesList.Items[cnt]) and
          (jcnt <> cnt)
          then NamesList.Items.Delete(jcnt);
        Dec(jcnt)
      until jcnt <= cnt;
      Inc(cnt)
    until cnt > NamesList.Items.Count - 1;
  except
  end;
  List.Free;
end;

Вызов

_FindFunctions(Form1.Memo1,Form1.listbox2,Form1.listbox1);

Компилируется нормально но при добавлении строки сразу же ошибка памяти.

[Человек_Борща]

а почему передается как var?

[Lauri]

Сообщение от Человек_Борща

а почему передается как var?

Ну содержимое же должно менятся.
Я Var убирал, всё равно ошибка

Никто не подскажет?

[Аватар]

Текст ошибки и на какой строке в студию. Предположительно ошибка в блоке удаления дублей. var для CodeText 100 лет не надо

[Lauri]

Сообщение от Аватар

Текст ошибки и на какой строке в студию. Предположительно ошибка в блоке удаления дублей. var для CodeText 100 лет не надо

Сразу при добавлении строки

Alllist.Items.Add('Hello') ;

Пробовал разные варианты, что то не получается. Решение простое должно быть, 100%

[Sibedir]

Сообщение от Аватар

Текст ошибки ... в студию

при появлении окошка с ошибкой Ctrl+C
здесь Ctrl+V

[Lauri]

Сообщение от Sibedir

при появлении окошка с ошибкой Ctrl+C
здесь Ctrl+V

[superedward]

А объект создается?

[Sibedir]

Это был PrtScn, а не Ctrl+C. Ну да бог с ним.
------------------------------------------------------------------------------------------------------------
А это точно на

 Alllist.Items.Add('Hello') ;

которая идет после

 AllList.Clear;

Если да, то, боюсь, придется глядеть весь код.

[Lauri]

А объект создается?

Он уже есть готовый на форме, я его подставил в процедуру просто.

Сообщение от Sibedir

Это был PrtScn, а не Ctrl+C. Ну да бог с ним.
------------------------------------------------------------------------------------------------------------
А это точно на

 Alllist.Items.Add('Hello') ;

которая идет после

 AllList.Clear;

Если да, то, боюсь, придется глядеть весь код.

Перепроверил
Убрал всё оставил только

list := tstringlist.Create;
  //list.LoadFromFile(pchar(FileToProcess));
  List.text := CodeText.Text;
  NamesList.Clear;
  AllList.Clear;
 Alllist.Items.Add('Hello') ;

И строка была успешно добавлена. Странно.

Значит ошибка тут, но когда в коде были статические Листбокс1 и 2 то всё работало нормально, а как перевёл в юнит с динамическими - проблемы

begin
    if pos(pchar('function'), list.Strings[i]) <> 0 then
      if pos(pchar('external'), list.Strings[i]) = 0 then
        AllList.Items.Add(Copy(list.Strings[i], 0, Pos(pchar(';'), list.Strings[i]) - 1));
    if pos(pchar('Function'), list.Strings[i]) <> 0 then
      if pos(pchar('external'), list.Strings[i]) = 0 then
        AllList.Items.Add(Copy(list.Strings[i], 0, Pos(';', list.Strings[i]) - 1));
  end;