PureBoard

Code: Alles auswählen

Procedure WritePreferenceDoubleEx(Keyword.s, Value.d)
  Protected q.q
  q = PeekQ(@Value)
  ProcedureReturn WritePreferenceQuad(Keyword, q)
EndProcedure
Procedure.d ReadPreferenceDoubleEx(Keyword.s, DefaultValue.d)
  Protected q.q
  q = PeekQ(@DefaultValue)
  q = ReadPreferenceQuad(Keyword, q)
  ProcedureReturn PeekD(@q)
EndProcedure

Procedure WritePreferenceFloatEx(Keyword.s, Value.f)
  Protected l.l
  l = PeekL(@Value)
  ProcedureReturn WritePreferenceLong(Keyword, l)
EndProcedure
Procedure.f ReadPreferenceFloatEx(Keyword.s, DefaultValue.f)
  Protected l.l
  l = PeekL(@DefaultValue)
  l = ReadPreferenceLong(Keyword, l)
  ProcedureReturn PeekF(@l)
EndProcedure

CreatePreferences("Preferencestest.pref")

d.d = 1
For a.l = 1 To 85
  d * 0.5
Next
Debug "Das ist d = (0.5)^85: " + StrD(d, 25)
Debug "d wird jetzt gespeichert"
Debug ""
WritePreferenceDouble("PB", d)
WritePreferenceDoubleEx("NTQ", d)

For a.l = 1 To 85
  d * 2
Next
Debug "Das ist d * 2^85: " + StrD(d, 25)
Debug ""

ClosePreferences()

OpenPreferences("Preferencestest.pref")
Debug "d wird jetzt normal ausgelesen"

d = ReadPreferenceDouble("PB", -1)
For a.l = 1 To 85
  d * 2
Next
Debug "d * 2^85: " + StrD(d, 25)
Debug ""

Debug "d wird jetzt anders ausgelesen"
d = ReadPreferenceDoubleEx("NTQ", -1)
For a.l = 1 To 85
  d * 2
Next
Debug "d * 2^85: " + StrD(d, 25)
ClosePreferences()