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
| 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.