Пятница, 29.03.2024
Просто сайт
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Программирование » Basic 4 PPC » ListBox - Чтение из файла всех строк
ListBox - Чтение из файла всех строк
demenevДата: Четверг, 07.01.2010, 18:45 | Сообщение # 1
Группа: Удаленные





FileOpen (c1,"C:\1.txt",cRead,,cASCII)

a = FileRead (c1)'читаем первую строку

If a<>EOF Then ListBox1.Add(a)'если неконец
'добавить строку
Do Until a = EOF 'цикл до конца файла
a = FileRead (c1)
If a<>EOF Then ListBox1.Add(a)
Loop



FileClose (c1) 'закрываем файл

 
Форум » Программирование » Basic 4 PPC » ListBox - Чтение из файла всех строк
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024
Создать бесплатный сайт с uCoz