ab.com コミュニティ

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

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

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

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

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

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

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

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

問題解決とは何の関係もないはずですが，構造体は単純に代入できますよ。
[code]Sub CopyType1(ByVal dst As Long, ByVal src As Long)
MD[dst] = MD[src]
End Sub[/code]

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

お久しぶりです。

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

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

[hide=グローバル領域][code]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
'-----------------------[/code][/hide]

[hide=問題のコード][code]Sub CopyType1(ByVal Num As Long,ByVal i As Long)
MD[Num].ExUnit=MD[i].ExUnit
MD[Num].ExSet=MD[i].ExSet
MD[Num].Unit=MD[i].Unit
MD[Num].Set=MD[i].Set
MD[Num].Num=MD[i].Num
MD[Num].Camp=MD[i].Camp
MD[Num].Wave=MD[i].Wave
MD[Num].Level=MD[i].Level
MD[Num].Block=MD[i].Block
MD[Num].Sector=MD[i].Sector
MD[Num].Factor=MD[i].Factor
End Sub[/code][/hide]