| |
alle öffnen
alle schließen
Nicht compiliert - . . geändert
|
|
Library setzen LIBRARY SETZEN
von Rainer Becker
Vor dem Aufruf von Funktionen aus zusätzlichen Libraries muß man diese mit "SET LIBRARY TO" erst einmal laden. Da Libraries aber häufig viel Speicherplatz benötigen, entfernt man diese auch gerne wieder aus dem Speicher. Dadurch wird es sinnvoll, das Überprüfen auf Vorhandensein einer Library und das Setzen einer Library miteinander wie folgt zu verbinden:
Function Library
Parameters cLib
m.cLib = Upper(alltrim(m.cLib))+".PLB"
If at(m.cLib,set("libr"))=0
If File(m.cLib)
Set Library to (m.cLib) Additive
Else
Return .f.
Endif
Endif
Return .T.
Zusätzlich kann man noch eine Parameterprüfung einbauen, in verschiedenen Verzeichnissen nach der Library suchen oder den Benutzer notfalls mit "GETFILE" nach dem Pfad zur Library fragen.
|
 |
