この発言に対し以下のコメントが寄せられています

#00655　謎の全知師      さん　RE:Delphi 4の動的配列





{
Delphi 4で新しくサポートされた動的配列を扱うサンプルコードです。
本当はオープン配列パラメータを使いたかったんですが、それでは手続き内部
で SetLengthしても結果が元の配列に反映されないようです。
}

var
  Arr: array of string;       // 文字列型動的配列変数の宣言

// 配列に新しい要素を追加する
procedure ArrayAdd(aData: string);
var
  n: Integer;
begin
  n:= Length(Arr);
  SetLength(Arr, n + 1);
  Arr[n]:= aData;
end;

// 配列の指定した位置に新しい要素を挿入する
procedure ArrayInsert(Index: Integer; aData: string);
var
  n, i: Integer;
begin
  n:= Length(Arr);
  SetLength(Arr, n + 1);
  for i:= n - 1 downto Index do Arr[i+1]:= Arr[i];
  Arr[Index]:= aData;
end;

// 指定した位置にある配列の要素を削除する
procedure ArrayDelete(Index: Integer);
var
  i, n: Integer;
begin
  n:= Length(Arr);
  if n > 0 then
  begin
    for i:= Index to n - 2 do Arr[i]:= Arr[i+1];
    SetLength(Arr, n-1);
  end;
end;


     　★ Avalon�U使うならログブラウザ「えるつぅ」公開中 ★
  　　　 AvalonないとNIFTYできない(^^) H-Triton Since 1996

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。