Как передать массив как параметр

Delphi , Компоненты и Классы , Процедуры и Функции

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

type
  Ta = array of something;
var
  a: Ta;

// внутри процедуры создаётся копия массива,
// внутри процедуры работа осуществляется только с копией данных
procedure Proc(a: Ta);

// внутри процедуры код работает именно с переменной а и её содержимым
procedure Proc(var a: Ta);

// внутри процедуры запрещено изменять данные переменной а
procedure Proc(const a: Ta);

// при входе в процедуру массив рассматривается как пустой,
// но после выполнения процедуры можно получить значения
procedure Proc(out a: Ta);

Привет! В Delphi есть несколько способов передавать массивы в параметры процедуры или функции, и выбор зависит от требований вашего кода. Вот обзор каждого из вариантов:

1. По значению: procedure Proc(а: Ta); Когда вы передаете массив по значению, создается копия оригинального массива, а процедура получает только для чтения версию этого массива. Любые изменения, сделанные в массиве внутри процедуры, не влияют на оригинальный массив.

Пример:

type
  Ta = array of Integer;

var
  a: Ta;
  b: Ta;

procedure Proc(a: Ta);
begin
  // а - копия оригинального массива
  WriteLn(a[0]); // печатает значение a[0] из оригинального массива
end;

begin
  a := [1, 2, 3];
  Proc(a);
  WriteLn(a[0]); // все еще печатает 1, потому что процедура не изменяла его
end.

1. По ссылке: procedure Proc(var а: Ta); Когда вы передаете массив по ссылке (используя ключевое слово var), в процедуре получается указатель на оригинальный массив, и она может изменять этот массив.

Пример:

type
  Ta = array of Integer;

var
  a: Ta;
  b: Ta;

procedure Proc(var a: Ta);
begin
  // а - ссылка на оригинальный массив
  a[0] := 10; // изменяет значение a[0] в оригинальном массиве
end;

begin
  a := [1, 2, 3];
  Proc(a);
  WriteLn(a[0]); // печатает 10, потому что процедура изменила его
end.

1. Константная ссылка: procedure Proc(const а: Ta); Когда вы передаете массив по константной ссылке (используя ключевое слово const), в процедуре получается только для чтения указатель на оригинальный массив, и она не может изменять этот массив.

Пример:

type
  Ta = array of Integer;

var
  a: Ta;
  b: Ta;

procedure Proc(const a: Ta);
begin
  // а - константная ссылка на оригинальный массив
  WriteLn(a[0]); // печатает значение a[0] из оригинального массива
end;

begin
  a := [1, 2, 3];
  Proc(a);
  WriteLn(a[0]); // все еще печатает 1, потому что процедура не изменяла его
end.

1. Выходной параметр: procedure Proc(out а: Ta); Когда вы передаете массив по выходному параметру (используя ключевое слово out), в процедуре создается новый массив, и она может изменять этот массив.

Пример:

type
  Ta = array of Integer;

var
  a: Ta;
  b: Ta;

procedure Proc(out a: Ta);
begin
  // а - неинициализированный массив
  SetLength(a, 2); // создает новый массив с 2 элементами
  a[0] := 10; // задает первый элемент равным 10
end;

begin
  Proc(result); // result инициализируется новым массивом [10]
end.

В целом:

• По значению передает копию оригинального массива, который не может быть изменен процедурой.
• По ссылке передает указатель на оригинальный массив, позволяя процедуре изменять его.
• Константная ссылка передает только для чтения указатель на оригинальный массив, предотвращая изменения.
• Выходной параметр инициализирует новый массив и позволяет процедуре изменять его.

Выберите вариант, который лучше подходит для вашего программирования!

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

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

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

:: Главная :: Процедуры и Функции ::