не срабатывает процедура

[marwell.]

доброго времени суток
почему то не срабатывает процедура

procedure TForm1.add_managers(cbx: TComboBox; str:string);
var name_m: string;
begin
name_m:=cbx.Text;
if (name_m<>'') and (Pos(name_m, str)=0) then begin
 str:=str+','+name_m;
 cbx.Items.Add(name_m);
end;
end;

она должна проверить условие(длина введенного в комбобокс текста >0, и введенный текст не встречается в строке str), и вслучае выполнения этих условий добавить этот текст в список комбобокса, и добавить в строку str.
В список комбобокса текст добавляется, а в строку почему то нет.
вызываю так

add_managers(ComboBox4, managers);

[marwell.]

а, нет, срабатывает оказывается. Но как то странно. Если внутри этой процедуры делать showmessage(str), то видно что конкатенация сработала. Если же после процедуры делать showmessage(managers), то строка осталась той же

[phomm]

procedure TForm1.add_managers(cbx: TComboBox; var str:string);

Изучаем способы передачи параметров в подпрограммы. Со строками ещё хитрость, что может поменяться указатель на неё из-за copy-on-demand

[Volkogriz]

Доброго времени суток!
можете и так:

var
str:string

procedure TForm1.add_managers(cbx: TComboBox); :)
var name_m: string;
begin
name_m:=cbx.Text;
if (name_m<>'') and (Pos(name_m, str)=0) then begin
 str:=str+','+name_m;
 cbx.Items.Add(name_m);
end;
end;

str:=managers;
add_managers(ComboBox4);

По другому подпрограммка для себя пишет str!
str у вас больше не где не видна!
С уважением,
Volkogriz!