ab.com コミュニティ

お久しぶりです。

構造体の配列を使用しているのですが、代入に失敗しています。

こーどは以下のとおりです。
構造体ポインタを使用しなければいけないのでしょうか？

Dim MD[9] As AU      'この変数で大部分から操作

'-----------------------
'編集の際に使用する機体データを保持する構造体
'-----------------------
Type AU
	ExUnit As String		'変更後ユニットネーム
	ExSet As String			'変更後セットネーム
	Unit As String			'ユニットネーム
	Set As String			'セットネーム
	Num As Long				'数
	Camp As Long			'敵･味方
	Wave As Long			'出番
	Level As Long			'レベル
	Block As Long			'設置ブロック
	Sector As Long			'設置セクター
	Factor As String		'ファクター
End Type
'-----------------------

問題のコード [ここをクリックすると内容が表示されます]

コード: 全て選択

Sub CopyType1(ByVal Num As Long,ByVal i As Long)
	MD[Num].ExUnit=MD.ExUnit
	MD[Num].ExSet=MD.ExSet
	MD[Num].Unit=MD.Unit
	MD[Num].Set=MD.Set
	MD[Num].Num=MD.Num
	MD[Num].Camp=MD.Camp
	MD[Num].Wave=MD.Wave
	MD[Num].Level=MD.Level
	MD[Num].Block=MD.Block
	MD[Num].Sector=MD.Sector
	MD[Num].Factor=MD[i].Factor
End Sub

問題解決とは何の関係もないはずですが，構造体は単純に代入できますよ。

コード: 全て選択

Sub CopyType1(ByVal dst As Long, ByVal src As Long)
    MD[dst] = MD[src]
End Sub

配列コピーをした後、その前のコピー元の配列を初期化すると、コピーした後の配列の文字列がおかしくなります。
なぜでしょうか？

上記のことに関しては、自己解決いたしました。

しかし、まだわからない点があります。

bufをStringで宣言(初期)
その後配列の中のデータ(Stringデータ)をbufに入れるときにアクセス違反

このような状況にあります。

状況が分からないので、そのアクセス違反になる部分とその周辺のコードを見せて下さい。

自己解決いたしました。
Sinryowさん、すいませんでした。
聞いていただいたのに、答えるまでもなく、自分で解決しましたので･･･