상수 문자열을 담는 배열을 선언하는 방법

이걸 해 보세요

Const
EntryCount =4;
Labels : array [1..EntryCount] of string = ('label1','label2','label3','label4');

이 예시처럼 동적 배열을 쓰는 방법도 있습니다:

var
  CachedLabels: TArray<string>;

function ReadLabels: TArray<string>;
begin
  if Length(CachedLabels) = 0 then
    CachedLabels := TArray<string>.Create('Alpha', 'Beta', 'Gamma');
  Result := CachedLabels;
end;

힙에 있는 동적 배열을 런타임에 초기화하지만, 사용 위치에서 바로 초기화할 수 있게 하는 Delphi 동적 배열의 "유사 생성자"를 보여 줍니다. (주의: 이 예시는 스레드 안전하지 않습니다).

배열 길이는 표준 Length() 함수로 구하면 되고, 유효한 인덱스 범위는 표준 Low()와 High() 함수로 알아낼 수 있습니다.

이전 Delphi 버전에서는 TArray 대신 직접 정의한 동적 문자열 배열 타입을 쓰면 됩니다. 예를 들어:

type
  TLabelArray = array of string;

XE7에서는 다음처럼 상수 동적 배열을 정의할 수 있습니다:

const
  Labels: TArray<String> = ['Alpha', 'Beta', 'Gamma'];

간접적인 방법도 있어요. 이런 함수를 작성하세요:

procedure copyLabels(var destination: ArrayOfString; const source: Array Of String);
var
  count, index: Integer;
begin
  count := Length(source);
  SetLength(destination, count);
  for index := count-1 downto 0 do
    destination[index] := source[index];
end;

그런 다음 이렇게 함수를 호출하세요:

copyLabels(labels, ['LabelA', 'LabelB', 'LabelC']);

여기서:

labels: ArrayOfString;