お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"Delphi 4の動的配列"

この発言に対し以下のコメントが寄せられています
#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;  ★ AvalonU使うならログブラウザ「えるつぅ」公開中 ★     AvalonないとNIFTYできない(^^) H-Triton Since 1996 Original document by H-Triton 氏 ID:(QZV11422)



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

Copyright 1996-2002 Delphi Users' Forum