Datei in Speicher laden?

[Codusa]

Wahrscheinlich sehe ich den Wald in den Bäumen mal wieder nicht
Ich würde gerne eine Datei in den Speicher laden um dann mit einem Pointer auf die entsprechende Speicheradresse verweisen zu können.
Irgendwie so(in er Theorie):

Code: Alles auswählen

*Pointer=Openfile(1,"test.txt")
Procedure(@Pointer)

[RSBasic]

Siehe ReadData().

[Codusa]

Wald gefunden

Danke für die schnelle und hilfreiche Antwort!

[STARGÅTE]

Code: Alles auswählen

Procedure LoadFile(FileName.s)
	Protected File.i, *MemoryID
	File = ReadFile(#PB_Any, FileName)
	If File
		*MemoryID = AllocateMemory(Lof(File))
		If *MemoryID
			ReadData(File, *MemoryID, Lof(File))
		EndIf
		CloseFile(File)
	EndIf
	ProcedureReturn *MemoryID
EndProcedure

LoadFile gibt dir nun die *MemoryID zurück.
Denk aber ans selbstständige wieder freigeben mit FreeMemory() !

[Codusa]

Danke, klappt einwandfrei!