|
por si ayuda, este subprograma lo uso en el procedimiento generarflota
en la unidad, en interface he puesto este orden:
VAR
PROCEDURE Inicializa(solucion:TTablero);
PROCEDURE GenerarFlota;
FUNCTION c(columna:integer):char;
FUNCTION f(Fila:integer):char; {igual que la anterior pero para la fila}
procedure colocandobarco(VAR solucion:TTablero;VAR valido:boolean; fila,columna,tipobarco,plusbarco,direccion:integer; c,f:char); {coloca el barco en la matriz}
SI subo c y f a arriba del todo me dice que despues de (columna: integer en vez de ) tengo que poner ; (lo mismo para ambas)
|