Estoy transportando un Juego hecho en Delphi a Lazarus y me he topado con algunos inconvenientes.
Esta es la aplicación en delphi.
Para empezar en delphi uso el Uses Math para obtener un rango con RandomRange
Pues en Lazarus NO existe en Math, asi que hay que crear la funcion asi:
function RandomRange(Low, High: LongInt) : LongInt; begin if High < Low then Result := High + Random(High - Low) else Result := Low + Random(Low -High); end;
Solucionado este primer paso el programa corre, pero al presionar el boton nuevo lanza este error:
Raised exception class 'External SIGSEGV'.
Por supuesto no se de que se trata, alguna idea?.
Saludos
PD: He de mencionar que el código de delphi lo he transportado exacto a Lazarus.