Function ReadLongintValueFBini(ByRef sGroup As String, ByRef sKey As String) As LongInt
Функция получает значение типа Longint из файла настроек
sGroup - заголовок(группа)
sKey - ключ
Windows , Linux
#Include "window9.bi"
If CreateFBini("prefar.ini") <> Cast(Any Ptr, -1) Then
Dim As String ss="hello"
Dim As Longint ii=76555555555555
WriteGroupFBini("Group1")
WriteGroupFBini("Group2")
WriteValueFBini("Group1","Key",ss)
WriteValueFBini("Group2","Key",ii)
CloseFBini()
EndIf
If OpenFBini("prefar.ini",1) <> Cast(Any Ptr, -1) Then
? ReadStringValueFBini("Group1","Key")
? ReadLongintValueFBini("Group2","Key")
?
dim as STRING sz = "Hello world"
WriteValueFBini("Group1","Key",sz)
WriteValueFBini("Group2","Key",Cast(LongInt,900000000000))
? ReadStringValueFBini("Group1","Key")
? ReadLongintValueFBini("Group2","Key")
CloseFBini()
Sleep()
EndIf
hello
76555555555555
Hello world
900000000000
Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents