動的構造体の受け渡し(VB→Delphi(DLL)) (ID:16775)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一部間違い Private Sub Command1_Click() Dim RecD As TRecData Dim i As Integer For i = 0 To 31 RecD.arrint(i) = i Next RecD.intX = CLng(Text1.Text) RecD.intY = CLng(Text2.Text) RecD.strS = Text3.Text RecD.dDate = Date If OpenDllForm(RecD) = False Then End If End Sub です。