固定長配列への変換
Namespace: FVILAssembly: FVILbasic (in FVILbasic.dll) Version: 3.1.0.0 (3.1.0.17)
Syntax
C# |
---|
public virtual HCD_CIRCLE_T[] ToArray() |
Visual Basic |
---|
Public Overridable Function ToArray As HCD_CIRCLE_T() |
Return Value
Type: array<HCD_CIRCLE_T>[]()[][]このインスタンスが保有する配列の全要素の複製を固定長配列に格納して返します。
Examples
ソースコード:
C# | Copy |
---|---|
using System; using System.Collections.Generic; using System.Text; using fvalgcli; namespace User.SampleCode.Array { public partial class HCD_CIRCLE_T_ARRAY { /// <summary> /// 固定長配列への変換. /// </summary> [FvPluginExecute] public void ToArray() { int countOrg = 10; // 0) 配列の作成. List<fvalgcli.HCD_CIRCLE_T> list = new List<fvalgcli.HCD_CIRCLE_T>(countOrg); for (int i = 0; i < countOrg; i++) { list.Add(fvalgcli.HCD_CIRCLE_T.init(i * 10 + i, i * 10 + i, i, i)); } // 1) インスタンスの準備と生成. FVIL.HCD_CIRCLE_T_ARRAY src1 = new FVIL.HCD_CIRCLE_T_ARRAY(list); fvalgcli.HCD_CIRCLE_T_PTR srcAddress = src1.Address; int srcCount = src1.Count; bool srcIsAttach = src1.IsAttach; // 2) 固定長配列への変換. fvalgcli.HCD_CIRCLE_T[] src2 = src1.ToArray(); // E) 確認 Assert.IsTrue(src2.Length == srcCount, "src2.Length = {0}", src2.Length); for (int i = 0; i < src2.Length; i++) { Assert.IsTrue(list[i].r == src2[i].r && list[i].score == src2[i].score && list[i].xc == src2[i].xc && list[i].yc == src2[i].yc, "src2[{0}]: r={1},score={2},xc={3},yc={4})", i, src2[i].r, src2[i].score, src2[i].xc, src2[i].yc); Console.WriteLine("src2[{0}]: r={1},score={2},xc={3},yc={4})", i, src2[i].r, src2[i].score, src2[i].xc, src2[i].yc); } } } } |
Visual Basic | Copy |
---|---|
Imports System.Collections.Generic Imports System.Text Imports fvalgcli Namespace SampleCode.Array Public Partial Class HCD_CIRCLE_T_ARRAY ''' <summary> ''' 固定長配列への変換. ''' </summary> <FvPluginExecute> _ Public Sub ToArray() Dim countOrg As Integer = 10 ' 0) 配列の作成. Dim list As New List(Of fvalgcli.HCD_CIRCLE_T)(countOrg) For i As Integer = 0 To countOrg - 1 list.Add(fvalgcli.HCD_CIRCLE_T.init(i * 10 + i, i * 10 + i, i, i)) Next ' 1) インスタンスの準備と生成. Dim src1 As New FVIL.HCD_CIRCLE_T_ARRAY(list) Dim srcAddress As fvalgcli.HCD_CIRCLE_T_PTR = src1.Address Dim srcCount As Integer = src1.Count Dim srcIsAttach As Boolean = src1.IsAttach ' 2) 固定長配列への変換. Dim src2 As fvalgcli.HCD_CIRCLE_T() = src1.ToArray() ' E) 確認 Assert.IsTrue(src2.Length = srcCount, "src2.Length = {0}", src2.Length) For i As Integer = 0 To src2.Length - 1 Assert.IsTrue(list(i).r = src2(i).r AndAlso list(i).score = src2(i).score AndAlso list(i).xc = src2(i).xc AndAlso list(i).yc = src2(i).yc, "src2[{0}]: r={1},score={2},xc={3},yc={4})", i, src2(i).r, src2(i).score, src2(i).xc, _ src2(i).yc) Console.WriteLine("src2[{0}]: r={1},score={2},xc={3},yc={4})", i, src2(i).r, src2(i).score, src2(i).xc, src2(i).yc) Next End Sub End Class End Namespace |