MemoRead()

MemoRead() – Datei als Memo einlesen

Die Funktion liest eine komplette Datei als Memo ein und gibt deren Inhalt zurück.

Parameter	Beschreibung
aFilename:C	Dateiname und Pfad

Rückgabewert

Alphanumerisch

Beispiel

CODE

| aFileName, aFile, aPath |

aPath     := 'c:\temp\',
aFileName := 'test.txt',

if !DirectoryExists(aPath) then
   CreateDir(aPath)
endif,

startseq,
   aFile := FOpen(aPath + aFilename, FO_CREATE),
   FWriteLn(aFile, 'Dontenwill AG'),
   FWriteLn(aFile, 'Datum ' + DToC(Date())),
   FClose(aFile)
onerror,
stopseq,

MemoRead(aPath + aFileName)   

// Ergebnis: 'Dontenwill AG'
//           'Datum 26.02.22'
// Hinweis:  Als Datum wird natürlich das aktuelle Tagesdatum ausgegeben.