この発言は
#00653　H-Triton        さんのDelphi 4の動的配列
に対するコメントです

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

#00656　H-Triton        さん　RE:Delphi 4の動的配列




H-Triton さん、こんにちは。謎の全知師です。

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

Type
  TArr = array of string;

var
  Arr: TArr;

procedure AddArry(var ArrX: TArr;S : String);
Begin
     SetLength(ArrX, Length(Arr) + 1);
     ArrX[Length(Arr) - 1] := S;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin
  SetLength(Arr, 2);
  Arr[0] := 'AAAA';
  Arr[1] := 'BBBB';
  AddArry(Arr, 'CCCC');
  for i := 0 To Length(Arr) - 1 Do
    ShowMessage(Arr[i]);
end;

とします。型宣言するのと、varで渡す所がミソ。

                                 98/09/20(日) 11:25 謎の全知師(QZE10125)

Original document by 謎の全知師      氏 ID:(QZE10125)

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