Что делает эта функция

[nactyx]

Доброго времени суток, форумчане! Разбираю код своего предшественника и вот не могу понять, что делает эта функция, подскажите:

function TNotes.MemoByName(AMemoName: string): TStrings;
var i:integer;
begin
AMemoName:=LowerCase(AMemoName);
result:=TStringList.Create;
if memolist.Count>0 then for i:=0 to memolist.Count-1 do
  begin
  if LowerCase(TNotesItem(memolist.Items[i]).Name)=AMemoName then result.Assign(TNotesItem(memolist.Items[i]).Text);
  end;
end;

Заранее благодарю за помощь!

[Serge_Bliznykov]

явно есть список TNotesItem, в котором хранятся TStringList'ы (a'ля Memo).
Функция проходит по списку, сравнивая имя в списке с переданным параметром,
если совпало, то результату присваивается данный стринглист.


кстати, я бы был с этой функцией настороже: она внутри делает Create, а кто будет чистить созданное - не совсем понятно...

if memolist.Count>0 then

и выкиньте этот if memolist.Count>0 then - в данном случае от него толку чуть меньше, чем никакого!

[nactyx]

Далее вызывается в коде таким образом:

tmpsql:=format(sl.memobyname('ZakInOtdel').Text,[str39(DataSet['№ЗАКАЗА']),str39(Otdel)]);

Результат? Не понимаю.
SL содержит в себе memolist из двух строк так называемые tnotesitem:
0 - ZakInOtdel
1 - ZakInArhiv
И каждая в себе содержит здоровенный sql-запрос


Тогда вопрос вдогонку - есть набор написанных компонентов. Чтобы с ними работать - надо их устанавливать (устанавливая через .bpl файлы). Как сделать так, чтобы не приходилось их устанавливать на каждой машине, чтобы работать с кодом?

[nactyx]

Т.е. имеется ли возможность их напрямую привязать сразу к проекту, без установки каждый раз?