[Обсуждение] Вопрос к знатокам TStringList

[NebesaBag]

Здравствуйте.
Допустим есть следующий код:

procedure One;
var temp:TStringList;
begin
temp:=TStringList.Create;
temp.Add('1');
temp.Add('2');
Two(temp);
temp.Free;
end;

procedure Two(test:TStringList);
begin
Memo1.Text:=test.Text;
end;

Визуально код работает корректно, т.е. в Мемо появляются 2 строки соответствующие.
Но меня всё же смущает, что стринглист во второй процедуре мне не надо было создавать, а я просто указал параметру этот тип.

Подскажите, корректен ли данный код или там есть подводные камни?
Благодарю.

Добавлено через 52 минуты
Товарищ zombiee подсказал, что код корректный и никаких подводных камней не имеет.
Если никто не против, то можно закрыть обсуждение.

[VeTaL_UA]

Любая переменная типа класса является указателем на область в памяти, где этот класс находится. Тоесть, по факту, вы передаёте указатель. Но всё же лучше дать компилятору понять, что вы передаёте параметр, как переменную.

procedure One;
var
  temp: TStringList;
begin
  temp := TStringList.Create;
  temp.Add('1');
  temp.Add('2');
  Two(temp);
  temp.Free;
end;

procedure Two(var test: TStringList);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.AddStrings(test);
end;

[NebesaBag]

Если я припишу "var" в параметрах процедуры, то от любого действия над локальной переменной в процедуре Two будет "страдать" родитель.
Не так ли?

[VeTaL_UA]

Цитата: Не так ли?

Ты передаёшь указатель, в любом случае "страдать" будет объект класса. Если ты хочешь, чтобы объект класса не тронуло, тогда надо создавать ещё один и копировать переданный в параметрах.

procedure blabla(var StringList: TStringList);
var
  Temp: TStringList;
begin
  Temp := TStringList.Create;
  Temp.Assign(StringList);
  //Do smth
  Temp.Free;
end;