WriteValueFBini

Синтаксис

Sub WriteValueFBini OverLoad(ByRef sGroup As String, ByRef sKey As String, ByVal value As byte)
Sub WriteValueFBini (ByRef sGroup As String, ByRef sKey As String, ByVal value As Short)
Sub WriteValueFBini (ByRef sGroup As String, ByRef sKey As String, ByVal value As Integer32)
Sub WriteValueFBini (ByRef sGroup As String, ByRef sKey As String, ByVal value As Double)
Sub WriteValueFBini (ByRef sGroup As String, ByRef sKey As String, ByVal value As LongInt)
Sub WriteValueFBini (ByRef sGroup As String, ByRef sKey As String, ByRef value As string)

Описание

Это перегруженная функция. Имеется возможность записать данной функцией один из 6 типов данных в значение Value: Byte , Short , Integer , Longint , Double , String . Тип данных должен быть правильно определен. Для этого можно пользоваться например оператором CAST. В примере ниже показывается запись числа напрямую с использованием оператора CAST. Для чего это нужно: Записывается тип данных одной функцией, но читается разными! Так например если вы запишите значение с типом Integer, а попытаетесь прочитать его функцией ReadByteValueFBini ,то возвращаемое значение будет 0.

Параметры

sGroup - заголовок(группа) для записи (любое строковое имя)

sKey - ключ, которому принадлежит значение value (любое строковое имя)

value - любое значение

Платформы

Windows , Linux

Пример

#Include "window9.bi"
If CreateFBini("prefar.ini") <> Cast(Any Ptr, -1) Then
  Dim As String ss="hello"
  Dim As Integer32 ii=76
  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")
  ? ReadIntegerValueFBini("Group2","Key")
  ?
  dim as STRING sz = "Hello world"
  WriteValueFBini("Group1","Key",sz)
  WriteValueFBini("Group2","Key",Cast(Integer32,90))
  ? ReadStringValueFBini("Group1","Key")
  ? ReadIntegerValueFBini("Group2","Key")
  CloseFBini()
  Sleep()
EndIf

Результат

hello
76

Hello world
90

Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents