Re: Klassen Erstellung
Verfasst: Mi, 25. Apr 2012 13:37
Wenn man das ein bisschen erweitert, kommt man zu einer Get/Set-Funktion, dem Mittel der Wahl, um beispielsweise Optionen applikationsglobal zu setzen, ohne mit PUBLICs arbeiten zu müssen:
Die Funktion retourniert, wenn sie ohne den Parameter aufgerufen wird, den inkrementierten Zähler ("Get"-Anteil), und bei Aufruf mit Parameter setzt sie ihn auf den übergebenen Wert ("Set"-Anteil). Ergänzend könnte sie noch irgendwas in XPF/INI/XML-Dateien oder in der Registry speichern bzw. von dort abholen.
Code: Alles auswählen
FUNCTION AufrufNr(nX)
STATIC nI := 0
IF PCount()>0
nI := nX
ELSE
nI ++
ENDIF
RETURN nI