Переделать код с Delphi на VB
Формулировка задачи:
Добрый день.
Написал код на delphi:
Пробую переиначить на basic:
Осталось одно: открыть файл, оттуда данные перекинуть в запись tbook.
Объясните, пожалуйста, как это сделать.
Решение задачи: «Переделать код с Delphi на VB»
textual
Листинг программы
Private Sub Command2_Click() Dim i As Integer, MyChar As Byte, MyLocation, MyLine Open App.Path & "\books.dat" For Binary As #1 Do While MyLocation < LOF(1) ' Цикл до конца файла MyLocation = Loc(1) ' Определяем текущую позицию внутри файла Get #1, , MyChar MyLine = MyLine + (Str(MyChar)) Loop Close #1 Text1.Text = MyLine End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д