Почему в Delphi изменение `TStringList` в процедуре не отражается в основном коде: особенности передачи параметров по значению

Delphi , Компоненты и Классы , Списки

В статье мы рассмотрим проблему, связанную с изменением объекта TStringList в процедурах на языке программирования Delphi, и почему напрямую присваивание одного объекта другому не приводит к ожидаемому результату. Мы также обсудим альтернативные способы изменения содержимого TStringList и особенности передачи параметров по значению.

Почему изменение TStringList в процедуре не отражается в основном коде

При работе с объектами в Delphi важно понимать, что при передаче параметра по значению, в стеке создается копия параметра, и все изменения, сделанные с этим параметром внутри процедуры, производятся над этой копией. Это правило применяется с времен Turbo Pascal и, возможно, с самых ранних версий Pascal.

Пример с передачей переменной по значению:

procedure TestInt(Int: Integer);
begin
  Int := 10;
  Writeln(Int); // выводит 10
end;

var
  I: Integer;
begin
  I := 5;
  Writeln(I); // выводит 5
  TestInt(I);
  Writeln(I); // все еще выводит 5
end.

Как видно из примера, изменение значения внутри процедуры не влияет на исходное значение переменной I.

Передача объектов по значению

Когда вы передаете объект в качестве параметра, переменная-объект является ссылкой на объект (указателем на адрес, где объект действительно хранится в куче). Однако, даже если параметр передается по ссылке, правило все еще применяется: создается копия ссылки в стеке. Любые изменения, сделанные с этой ссылкой внутри процедуры, производятся над этой копией.

Проблема с TStringList

Рассмотрим первый пример из контекста:

procedure TestOne(List : TStringList);
var
  TempList : TStringList;
begin
  TempList := TStringList.Create;
  TempList.Add('Test');
  List := TempList; // Здесь создается копия ссылки, которая теряется при выходе из процедуры
  TempList.Free;
end;

Прямое присваивание List := TempList; просто меняет ссылку, делая ее указывающей на другой объект в другом месте памяти. Это значение теряется, когда процедура возвращает управление.

Оптимизация компилятора

Иногда компилятор может удалить строку присваивания, если новое значение не используется. Это может быть причиной, по которой строка не выполняется.

Использование метода Assign

Метод Assign является правильным способом копирования строк из одного списка в другой:

procedure TestTwo(List : TStringList);
var
  TempList : TStringList;
begin
  TempList := TStringList.Create;
  TempList.Add('Test');
  List.Text := TempList.Text;
  // или
  List.Assign(TempList);
  // List := TempList; // не рекомендуется
  TempList.Free;
end;

Работа напрямую с TStringList

Вы также можете работать напрямую с TStringList, не создавая временный список:

procedure TestOne(List : TStringList);
begin
  List.Clear;
  List.Add('Test');
end;

Особенности свойств в Delphi

Свойства компонентов в Delphi работают немного иначе, чем обычные переменные. Например, присвоение значения свойству Lines компонента TMemo на самом деле вызывает метод SetLines:

Memo1.SetLines(AList);

Внутри этого метода вызывается Assign, который копирует строки из одного списка в другой.

Заключение

При работе с объектами в Delphi важно понимать, как происходит передача параметров и какие особенности этого процесса. Использование метода Assign и работа напрямую с объектами TStringList позволяет избежать проблем, связанных с потерей изменений после выхода из процедуры.

Создано по материалам из источника по ссылке.

Статья рассматривает проблему изменения объекта `TStringList` в процедурах на языке программирования Delphi и объясняет, почему напрямую присваивание одного объекта другому не приводит к изменению основного объекта, а также обсуждает методы корректного к

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::