home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / basics / service.exe / service.DXR / 00003.ls < prev    next >
Encoding:
Text File  |  1996-09-16  |  410 b   |  19 lines
  1. on exitFrame
  2.   global pfad
  3.   set pfad to the pathName
  4.   put LeseText1(the pathName & "Director.inf") into field "Startpfad"
  5. end
  6.  
  7. on LeseText1 dateiname
  8.   global LeseObjekt
  9.   if objectp(LeseObjekt) then
  10.     LeseObjekt(mdispose)
  11.   end if
  12.   set LeseObjekt to FileIO(mnew, "read", dateiname)
  13.   if objectp(LeseObjekt) then
  14.     set text to LeseObjekt(mReadFile)
  15.     return text
  16.     LeseObjekt(mdispose)
  17.   end if
  18. end
  19.