область видимости ?

[artem779]

скажем у меня в программе есть продцедра
loger(line:string)

Она не делает ничего особенного. Просто выводит line в новой строке memoLog:TMemo .
Как сделать так, чтобы не надо было этот самый memoLog передававть в процедуру в качестве параметра, а чтобы он сам находил этот самый memoLog ?

[Stilet]

Не передавай. Просто пиши :

procedure loger(line:string);
begin
memoLog.lines.add(line);
end;

[geget]

Так проца будет передавать твой Line всем Memo.

procedure TForm1.loger(line:string);
var i:byte;
begin
for i:=0 to form1.ComponentCount-1 do
if form1.Components[i].ClassType.ClassName='TMemo' then (form1.Components[i] as TMemo).Lines.Add(Line)
end;

Можно дописать любые дополнительные параметры, по которым он будет искать нужный memo

[artem779]

спасибо. выручил )