[___toha___]

У меня есть функция, допустим такая:

Код:

function List(InString : string): boolean;
begin

end;

Мне в нее нужно вставить информацию из компонента ListBox, а точнее сделать перечисление, но ошибка в другом. Внутри функции посторонние компоненты почему-то не работают. Ставлю после названия точку, а вместо методов и свойств вылезает ошибка.

Код:

While X = List.Count Do

не работает, хотя в процедурах других все нормально.

Как можно исправить это? Простите за такой глупый вопрос...

[angvelem]

Либо перед ListBox-ом ставь префикс формы (Form1.ListBox1...), либо сделай процедуру полем класса формы.

Код:

  TForm1 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    function List(InString : string): boolean;
  end;

function TForm1.List(InString : string): boolean;
begin  
end;

[___toha___]

Большое спасибо, помогло, просто поставил Form1 везде перед компонентами в функции..Еще раз спасибо..