UTNianos

Versión completa: [Algoritmos] Problema procedimiento matriz
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
a ver si alguno me da una manito y me dice que es lo que no veo !

estoy haciendo un programa, no viene al caso el programa entero

pero estoy haciendo este procedimiento:
------------------------------------------
procedure VaciarMatriz(var matRes:tRMat);

var i, j : integer;

begin

for i:=1 to 25 do begin

for j:=1 to 7 do begin

matRes[i,j].Nom:=' ';
matRes[i,j].NRes:=0;
end;
end;
end;
--------------------------------------------------

es una tonteria, es dejar vacia una matriz de 25 x 7 para despues llenarla en otra parte del programa. Ahora bien, la matriz esta definida :

tRMat = Record
Nom : str25;
NRes : word;
end;

me tira : Error 121, invalid qualifier, y me pone el puntero en el matRes[i,j].Nom:=' ';

ya probe poniendole hasta un string tipo zzzzz en vez de ' ', pero me tira lo mismo, si alguno ve el error avise ! gracias
No será porque matRes es un registro en lugar de una matriz de registros?
Debería ser de array[1..25]of array[1..7] of tRMat

Fijate si así funciona


type
str25=string[25];
tRMat = Record
Nom : str25;
NRes : word;
end;
tMatriz=array[1..25]of array[1..7] of tRMat;

procedure VaciarMatriz(var matRes:tMatriz);
var i, j : integer;

begin

for i:=1 to 25 do begin

for j:=1 to 7 do begin

matRes[i,j].Nom:=' ';
matRes[i,j].NRes:=0;
end;
end;
end.




Acordate de cambiarle el tipo tambien en el principal para que coincidan los parámetros del procedure.
uf no me habia dado cuenta que estaba poniendo la matriz de tipo registro en vez de tipo matriz! muchas gracias
URLs de referencia