名前
題名
▼ takiさん > ▼ マスター、Novさん > > 色々と説明して頂き恐縮です。 > > 何度も読み返したのですが、私の頭では理解できません。 > それで、以下のコードを試してみました。 > > それぞれのポイントでの変数の内容と変数のアドレスを > 表示するようにしただけです。 > > > type > TTestAry = array of integer; > > procedure ABC(var buf:TTestAry); > var > i,len,count:integer; > s:string; > begin > s := 'ABC手続 buf ' + IntToHex(Integer(buf),8); > Form1.listbox1.Items.Append(s); > s := 'ABC手続 @buf ' + IntToHex(Integer(@buf),8); > Form1.listbox1.Items.Append(s); > > len := Length(buf); // 今のサイズを得る > count := 0; > > // 100〜200のデータをbufにセットする処理 > for i := 100 to 200 do begin > buf[count] := i; > inc(count); > > // 配列の数を増やす --------- > if count >= len then begin > len := len + 10; // とりあえず10増やす > SetLength(buf,len); > > s := 'SetLength' + inttostr(len) + ' buf ' + IntToHex(Integer(buf),8); > Form1.listbox1.Items.Append(s); > s := 'SetLength' + inttostr(len) + ' @buf ' + IntToHex(Integer(@buf),8); > Form1.listbox1.Items.Append(s); > > end; > // -------------------------- > end; > > // 配列の数を実際の数に揃える > SetLength(buf,count); > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > Abuf:TTestAry; > i,len:integer; > s:string; > begin > // 動的配列設定 > SetLength(Abuf,10); // とりあえず10確保 > > s := 'Button1手続 SetLength Abuf ' + IntToHex(Integer(Abuf),8); > Form1.listbox1.Items.Append(s); > s := 'Button1手続 SetLength @Abuf ' + IntToHex(Integer(@Abuf),8); > Form1.listbox1.Items.Append(s); > > // 手続きを呼び出す > ABC(Abuf); > > s := '戻った Abuf ' + IntToHex(Integer(Abuf),8); > Form1.listbox1.Items.Append(s); > s := '戻った @Abuf ' + IntToHex(Integer(@Abuf),8); > Form1.listbox1.Items.Append(s); > > // 結果の表示 > len := Length(Abuf); > for i := 0 to len - 1 do begin > ListBox1.Items.Append(inttostr(Abuf[i])); > end; > end; > > > その結果、@Abuf、@bufともに常に同じアドレスを示していました。多分、 > procedure TForm1.Button1Click(Sender: TObject); で定義した > var > Abuf:TTestAry; ← のアドレスだと思います。 > > Abuf、bufは時々変化していました。 > Abuf、bufは動的配列の先頭位置のアドレスを示している筈です。 > Novさんが言われている通りSetLengthすると時々アドレスが変わっています。 > 多分、確保したメモリー空間で収まらなくなったので、別の広いメモリー空間に > 移動した？のではないかと想像しています。 > > いや、そういう問題じゃなくてトラブルのもとになるようなコードを > 書くべきじゃないとマスターは言われているのだと思いますが、とりあえず > この結果でこの件は自分としては納得しました。 > > 今作成中のプログラムも「varなし」の方法に書き換えていきます。 > > こんな事にマスターを巻き込んでしまいスミマセンでした。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link