Code: Select all
Procedure.s INI_Lesen(Bereich.s, Eintrag.s, Datei.s)
Protected rueck.l, tmp.s
tmp = Space(255)
rueck = GetPrivateProfileString_(Bereich, Eintrag, tmp, @tmp, 255, Datei)
ProcedureReturn Left(tmp, rueck)
EndProcedure
Procedure INI_Schreiben(Bereich.s, Eintrag.s, Wert.s, Datei.s)
Protected rueck.l
If Trim(Eintrag) = ""
;Bereich entfernen
rueck = WritePrivateProfileString_(Bereich, 0, 0, Datei)
ElseIf Trim(Wert) = ""
;Eintrag entfernen
rueck = WritePrivateProfileString_(Bereich, Eintrag, 0, Datei)
Else
;Eintrag schreiben/ändern
rueck = WritePrivateProfileString_(Bereich, Eintrag, Wert, Datei)
EndIf
EndProcedure