クラスの複製…。

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: クラスの複製…。

by 7 » 2005年12月31日(土) 17:05

なるほど。クラスを複製する際の生成、破棄もNew,Delete演算子にします。
えーと、一応これでお終いにしたいと思います。ありがとうございました。

> ABからは逸れますが，C++ではコンストラクタ・デストラクタがないなど，
> 一定の要件を満たしたクラスはPODと呼ばれます。
> PODはcallocなどで確保したメモリを使ったり，memcpyでコピーしたりしても良いクラスである，
ABにもそういうものがあったら悩まず解決したんでしょうね。

> また、近頃のVC++のmalloc/freeなどは単にHeapAlloc/HeapFreeを呼ぶようになっています。
ABもそのようになってるんじゃないでしょうか…？。

by イグトランス » 2005年12月31日(土) 10:56

またABからは逸れますが，C++ではコンストラクタ・デストラクタがないなど，
一定の要件を満たしたクラスはPODと呼ばれます。
PODはcallocなどで確保したメモリを使ったり，memcpyでコピーしたりしても良いクラスである，
――言うなればABでのType相当に扱える――ということがきちんと定められています。
これはC++での構造体とクラスの違いがないという特異性ゆえの事情もありますが。

また、近頃のVC++のmalloc/freeなどは単にHeapAlloc/HeapFreeを呼ぶようになっています。
HeapAllocを使わなくても結局やっていることは同じようなものです。
ならばどうせWindowsのものを使えば良いではないかという方向にVC++の開発者がなったのではないでしょうか。

by マティ » 2005年12月31日(土) 08:15

> calloc()関数でも問題ありませんでしたか(^_^;)
現在の仕様では動くようですって事で、ご理解下さい。

自分は、New 演算子で作成するロジックを推奨します。
※将来的にクラスの機能は向上しますので、要注意って事です。
　

by 高信期 » 2005年12月31日(土) 00:00

＞すみません。問題の解決法ではなく問題そのものはないでしょうか？
失礼いたしました。
他言語の話になりますが、VC++ではNew演算子は内部でVirtualXX系の関数でメモリ確保しているそうです。
Win9x系でののHeapXX系の関数(ABではmalloc,calloc等で使用)は、
＞4 メガバイト（MB）未満のメモリブロックを扱うように設計されています。
http://www.microsoft.com/japan/develope ... palloc.htm
なのだそうで、Win9xでも巨大メモリを手軽に使用できるよう設計されたのでしょう。

ABでもこのような内部仕様になるとも限らないので、
クラス生成、廃棄にはNew,Delete演算子を使用するのが無難かもしれません。

by 7 » 2005年12月30日(金) 23:35

calloc()関数でも問題ありませんでしたか(^_^;)

> Dim test As CTest()は()を取った方が良いと思います。
コンストラクタに引数がないことを明示的にするつもりで書いていたのですが以後気を付けます。
同様に、clone=New CTest()の()も取った方が良いですよね。

by 7 » 2005年12月30日(金) 23:29

なるほど。calloc()関数だと不具合がでる可能性があるのですね。ちょっとコードを書き直しました。
コンストラクタ、デストラクタが実行されたのでこちらの方が良いかな、と思いました。

コード: 全て選択

Class CTest
Public
	c_x As Long
	c_y As Long

	Function clone() As *CTest
	Dim size As DWord
		size=SizeOf(CTest)
		clone=New CTest()
		memcpy(clone,VarPtr(This),size)
	End Function
End Class

Dim test As CTest()
Dim test2 As *CTest

test.c_x=100
test.c_y=200

test2=test.clone()

test.c_x=test.c_x*2
test.c_y=test.c_y*2

Debug

Delete test2

by マティ » 2005年12月30日(金) 23:09

動作を実験しましたが、特に問題は発生しませんでした。 Dim test As CTest()は()を取った方が良いと思います。

by マティ » 2005年12月30日(金) 22:58

一見動作しているように見れるのですが･･･
calloc(size)で取得した領域はデータ領域です。
プログラム（関数）を実行すると不具合がでる可能性があります。

by 7 » 2005年12月30日(金) 22:51

返信ありがとうございます。

すみません。問題の解決法ではなく問題そのものはないでしょうか？
プログラムは滞りなく動くんですが、自分には想像しえない問題が起きてるんじゃないかと思い質問しました。
適当に書いたら動いたコードなので問題なしという確信が持てません…。

by 高信期 » 2005年12月30日(金) 22:18

クラスの生成、廃棄にはNew、delete演算子を使えばコンストラクタ、デストラクタが呼び出されますよ。

クラスの複製…。

by 7 » 2005年12月30日(金) 22:00

Aを複製して独立したBを作ろうと思い以下のプログラムを組みました。で、何か問題はないでしょうか？
自分にはコンストラクタ、デストラクタが実行されない(実行されなくて構わない)ことぐらいしか分からないのですが…。

コード: 全て選択

Class CTest
Public
	c_x As Long
	c_y As Long

	Function clone() As *CTest
	Dim size As DWord
		size=SizeOf(CTest)
		clone=calloc(size)
		memcpy(clone,VarPtr(This),size)
	End Function
End Class

Dim test As CTest()
Dim test2 As *CTest

test.c_x=100
test.c_y=200

test2=test.clone()

test.c_x=test.c_x*2
test.c_y=test.c_y*2

Debug

free(test2)

ページトップ