MemoLine()

MemoLine() – Memozeile extrahieren

Die Funktion extrahiert aus einem Memo eine beliebige Zeile oder Zeichenkette.

Parameter	Beschreibung
aMemo:C	Beliebiges Memo
aLineLen:N	Zeilenlänge (Default = 70)
aLine:N	Nummer der Zeile (Default = 1)
aTabSize:N	Länge des Tabstopps
UseWordWrap:L	Zeilenumbruch (Default = true)

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,

MemoLine(MemoRead(aPath + aFileName), 13, 1)   // Ergebnis: 'Dontenwill AG'