LoadArray()

LoadArray() – Array aus Datei laden

Die Funktion lädt ein Array aus einer Datei und übergibt es einer Variablen.

Parameter	Beschreibung
aArray:R	Referenziertes Array
aFileName:C	Pfad + Dateiname

Rückgabewert

Logisch / Boolean - Array konnte aus der angegebenen Datei geladen werden

Beispiel

CODE

| aFile, aIn, aFileName, cText, nX, aFileArray, i |

aFileName := "C:\Temp\Test.txt",
cText     := "Dontenwill",
nX        := Len(cText),

if !DirectoryExists("C:\temp") then
   CreateDir("C:\Temp"),
endif,
aFile := FOpen(aFileName, FO_CREATE),
while nX >= 0 do
   startseq,
   FWriteLn(aFile, OemToAnsi(SubStr(cText, Len(cText) - nX + 1, 3))),
   onerror,
   stopseq,
   nX := nX - 3,
end,
FClose(aFile),
LoadArray(aFileArray, aFileName),
for i := 1 to Len(aFileArray) do
   WriteLn(aFileArray[i])
end,