- type
- Model2D = array of integer;
- type
- PFlexModel2D = ^Model2D;
- var
- MLU_Ambiente_Model_2D :array of integer;
- //Das Freigeben
- procedure MLU_Flex_Displaylist_free(input:PFlexModel2D);
- var
- I:integer;
- begin
- for I := 1 to high(input^) do
- glDeleteLists(input^[I],1);
- end;
- //Der Aufruf
- MLU_Flex_Displaylist_free(@MLU_Ambiente_Model_2D);