Wenn man sich bei PB5.30 erstmal an das AllocateStructure() und FreeStructure() gewöhnt hat,
und dann wieder in der LTS Version am arbeiten ist, vermisst man was.
Da ich mir das nicht abgewöhnen konnte und immer brav vom Compiler mit Fehlermeldungen
attackiert wurde, bastelte ich mir folgende Macros :
Code: Alles auswählen
Macro _AllocateStructure(Adress, StructureName)
CompilerIf #PB_Compiler_Version >= 530
Adress = AllocateStructure(StructureName)
CompilerElse
Adress.StructureName = AllocateMemory(SizeOf(StructureName))
If Adress
InitializeStructure(Adress, StructureName)
EndIf
CompilerEndIf
EndMacro
Macro _FreeStructure(Adress, StructureName)
CompilerIf #PB_Compiler_Version >= 530
FreeStructure(Adress)
CompilerElse
If Adress
ClearStructure(Adress, StructureName)
FreeMemory(Adress)
EndIf
CompilerEndIf
EndMacro
egal welche PB Version. (Man kann sich die Macros in eine Resident Datei packen und muss sie dann
nicht mehr inkludieren)