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