OpenFBini

OpenFBini

OpenFBini(Filename,[flag=0])

Функция открывает существующий файл настроек для чтения и записи. Если файл не существует, то возвращает -1

Filename -  имя файла настроек

Flag - может быть:

0 -  позволяет открывать файл только для чтения

1 -  открывает файл для чтения и записи

Пример:

#Include "Window9.bi"

If CreateFBini("prefar.ini")<> -1 Then
  Dim As String ss="hello"
  Dim As Integer ii=76
  WriteGroupFBini("Group1")
  WriteGroupFBini("Group2")
  WriteValueFBini("Group1","Key",ss)
  WriteValueFBini("Group2","Key",ii)
   CloseFBini()
EndIf

If OpenFBini("prefar.ini",1)<>-1 Then
  ? ReadStringValueFBini("Group1","Key")
  ? ReadIntegerValueFBini("Group2","Key")
  ?
  WriteValueFBini("Group1","Key","Hello world")
  WriteValueFBini("Group2","Key",Cast(Integer,90))
  ? ReadStringValueFBini("Group1","Key")
  ? ReadIntegerValueFBini("Group2","Key")
   CloseFBini()
   Sleep()
EndIf

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator