Постоянный массив строк и записей в Delphi

Question

Возможно ли что-то подобное с Delphi? (с динамическими массивами строк и записей)

type
  TStringArray = array of String;
  TRecArray = array of TMyRecord;

procedure DoSomethingWithStrings(Strings : TStringArray);
procedure DoSomethingWithRecords(Records : TRecArray);
function BuildRecord(const Value : String) : TMyRecord;

DoSomethingWithStrings(['hello', 'world']);
DoSomethingWithRecords([BuildRecord('hello'), BuildRecord('world')]);

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

Answer 1

Если вам не нужно изменять длину массивов внутри подпрограмм DoSomethingWith*, я предлагаю использовать открытые массивы вместо динамических, например, вот так:

procedure DoSomethingWithStrings(const Strings: array of string);
var
  i: Integer;
begin
  for i := Low(Strings) to High(Strings) do
    Writeln(Strings[i]);
end;

procedure DoSomethingWithRecords(const Records: array of TMyRecord);
var
  i: Integer;
begin
  for i := Low(Records) to High(Records) do
    Writeln(Records[i].s);
end;

procedure Test;
begin
  DoSomethingWithStrings(['hello', 'world']);
  DoSomethingWithRecords([BuildRecord('hello'), BuildRecord('world')]);
end;

Обратите внимание на array of string в списке параметров - не TStringArray!См. Статью «Параметры открытого массива и массив const» , особенно раздел «Путаница», для получения дополнительной информации.