[MeKree]

У меня есть функция Pars

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;

И 2 поток

procedure BalanceThread.Execute;
var
ParsMemo:string;
begin
ParsMemo:=Memo1.Text;
pars('Types">', ParsMemo, '</string>');
end;

При компиляции выдает

Undeclared identifier 'pars'

Подскажите пожалуйсто как быть

[poli-smen]

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

У меня есть функция Pars

Это не функция, это метод класса TForm1

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

Подскажите пожалуйсто как быть

А с какой целью Pars сделан как метод класса TForm1? Ведь он к этому классу вообще никак (логически) не привязан. Проще всего сделай из него не метод, а обычную функцию. Если же он обязательно должен быть методом, то и вызывай его через объект соответствующего класса, например "Form1.Pars(...". И поосторожнее с межпотоковыми вызовами.