バイナリファイルの書き込み (ID:39461)

名前

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

本文 お世話になります。 D6P + XP バイナリファイルを書き込む部分をVBからDELPHIに移植を試みています。目的とするサンプルを探しましたが手がかりがつかめず質問させていただきました。Delphiのページで恐縮ですがやりたいことはVBで書くと次のようなものです。 'Private VLng(200) As Long 'VBでは4バイトの整数 'Private Vsgl(200) As Single '４バイト 'Private Ndata As Integer Private Sub Command1_Click() Dim BinFile As String Dim P0 As Integer, I As Integer, II As Integer BinFile = App.Path & "\TEST1.bin" Open BinFile For Binary As #1 For I = 1 To NData P0 = (I - 1) * 8 + 1 II = P0 : Put #1, II, VLng(I) II = P0 + 4 : Put #1, II, Vsgl(I) Next I Close #1 End Sub よろしくお願いします。