Van http://www.savagesoftware.com.au/Del...listmodes.html
Het is gelukt om de laatste regel te porten maar de tweede laatste lukt niet. Hoe kan modes[i] - 1 ooit een integer uitkomen? Ik heb al length(modes) geprobeerd maar dat lukt ook niet.Code:var modes: PPSDL_Rect; i: integer; begin modes := SDL_ListModes(nil,SDL_FULLSCREEN or SDL_HWSURFACE); ... WriteLn( 'Available Modes' ); for i := 0 to modes[i] - 1 do WriteLn( Format( ' %d x %d', [ modes[i].w, modes[i].h ] ) );
Bookmarks