名前
題名
▼ Mr.XRAYさん > > こういう使い方はしたことがないです．私は． > > 基本的に以下のような使い方をしています． > インスタンスの生成は，呼び出し側で行う方法です． > この方法が，割と一般的だとは思います． > クラス等は，呼出し側で生成と破棄を実行した方が，管理がしやすくなります． > > > type > TTestAry = array of integer; > > > procedure ABC(buf:TTestAry); > begin > //呼出し側でbufのインスタンスを生成していなければ例外発生 > buf[0] := 999; > Form1.Label1.Caption := inttostr(buf[0]); // 999 > // 手続き内で値を変更する > buf[0] := 888; > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > Abuf:TTestAry; > begin > //インスタンス生成(と同じ) > SetLength(Abuf,1); > > // 手続きを呼び出す > ABC(Abuf); > Label2.Caption := inttostr(Abuf[0]); > > //動的配列の解放はしなくてもOK > //明示的に実行するのであればnilを代入する > Abuf := nil; > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link