Переделать код с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5