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

[Аватар]

Скорее всего ошибка именно на AllList.Clear и AllList или не создан, или Parent-а нет. Да, не с триады случайно вызов?

[Lauri]

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

... Да, не с триады случайно вызов?

Это как?

После некого видо-изминения кода

procedure _FindFunctions( CodeText: Tmemo; var  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 begin
      str:=Copy(list.Strings[i], 0, Pos(pchar(';'), list.Strings[i]) - 1);
      try
        AllList.Items.Add(str);
        except
        end;
        end;
        end;
   { 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;

Обнаружил что ошибка именно на этой строке

str:=Copy(list.Strings[i], 0, Pos(pchar(';'), list.Strings[i]) - 1);

[Serge_Bliznykov]

str:=Copy(list.Strings[i], 0, Pos(pchar(';'), list.Strings[i]) - 1);

никакого особенного криминала не вижу, функция Copy достаточно защищёная (внутри есть нужные проверки), хотя, конечно, строки в Паскаль/Delphi нумеруются от 1 (единицы).
т.е. нужно:

str:=Copy(list.Strings[i], 1, Pos(pchar(';'), list.Strings[i]) - 1);

а поясните, зачем Вы в функции Pos используете тип pchar()?!
чем Pos(';', list.Strings[i]) не устроило?

[Lauri]

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

никакого особенного криминала не вижу, функция Copy достаточно защищёная (внутри есть нужные проверки), хотя, конечно, строки в Паскаль/Delphi нумеруются от 1 (единицы).
т.е. нужно:

str:=Copy(list.Strings[i], 1, Pos(pchar(';'), list.Strings[i]) - 1);

а поясните, зачем Вы в функции Pos используете тип pchar()?!
чем Pos(';', list.Strings[i]) не устроило?

Вы правы насчёт Pchar, я как то на автомате. Всё работает отлично. Большое спасибо!