Изменение переменной в процедуре

[onkofe]

Делаю так

procedure TForm1.Test(var X1: TstringList);
begin
  Memo1.Lines.Add(#13#10+' В функции было '+ IntToStr(X1.Count));
  X1.Delete(0);
  Memo1.Lines.Add(' В функции стало '+ IntToStr(X1.Count)+#13#10);
end;

procedure TForm1.Button1Click(Sender: TObject);
var x: Integer;
    List1: TStringList;
begin
  List1:= TStringList.Create;
  try
    for x:=0 to 10 do List1.Add(IntToStr(x));
    Memo1.Lines.Add('Всего было '+ IntToStr(List1.Count));
    Test(List1);
    Memo1.Lines.Add('Всего стало '+ IntToStr(List1.Count));
  finally
    List1.Free;
  end;
end;

Получаю:

Всего было 11

 В функции было 11
 В функции стало 10

Всего стало 10

Пробовал вот так

procedure TForm1.Test(X1: TstringList);

но не помогает (

Почему из первоначального TStringList удаляется строка и как сделать чтобы не удалялась?

[Пепел Феникса]

X1.Delete(0);

вот и удаляется.
и var там не надо.

[onkofe]

И как быть тогда?
Ведь наверное если бы я хотел удалить строку из List1, я бы не стал вызывать для этого функцию Test()

[Пепел Феникса]

вам надо чтоб передалась компия объекта?
руками создавайте копию, и через Assign сравняйте их(для TStrings(и потомков) работает)

[onkofe]

я изучаю различие в передачи параметров в функцию

procedure TForm1.Test(X1: TstringList);
procedure TForm1.Test(var X1: TstringList);
procedure TForm1.Test(out X1: TstringList);
procedure TForm1.Test(const X1: TstringList);

[Пепел Феникса]

вы бы сначало изучили что такое объекты(class) и как они хранятся.

[onkofe]

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

[Пепел Феникса]

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

[onkofe]

то есть только таким образом?

procedure TForm1.Test(X1: TstringList);
var Test: TStringList;
begin
  Test:= TStringList.Create;
  Test.Assign(X1);
  Memo1.Lines.Add(#13#10+' В функции было'+ IntToStr(Test.Count));
  try
    Test.Delete(0);
    Memo1.Lines.Add(' В функции стало'+ IntToStr(Test.Count)+#13#10);
  finally
    Test.Free;
  end;
end;

[Пепел Феникса]

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