Duda comprobación while Pascal
Publicado por Juan Tomás (1 intervención) el 28/08/2023 10:05:45
Tengo un problema con Pascal. Estoy creando una base de datos de personas, con la función NUEVO de crear registro tiene que verificar que el nº de documento introducido no se encuentre ya en la base de datos. El primer problema que me encuentro es que hace la verificación una vez cerrado el programa, pero no hace la comprobación mientras el programa está en ejecución y voy introduciendo registros.
Muchas gracias de antemano por la ayuda prestada.
Saludos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
if FileExists (BASEDEDATOS_NOMBRE_REAL) then begin
reset (archivoDataBase);
seek (archivoDataBase, FileSize (archivoDataBase));
end else begin
rewrite (archivoDataBase);
end;
{DENTRO DE CREAR REGISTRO, REALIZARMOS ESTA VERIFICACION}
while not eof (archivoDataBase) do begin
read (archivoDataBase,registroPersonaAux);
prueba:=compareStr (objCom.listaParametros.argumentos[1].datoString, registroPersonaAux.Documento)=0;
if prueba=true then beginwriteln ('Ya existe este numero de documento');
write (PROMPT);
readln (entradaEstandar);
ObjCom:=crearComando(entradaEstandar);
sysCom:=comandoSistema(objCom);
end;
end;
seek (archivoDataBase, FileSize (archivoDataBase));
write (archivoDataBase, registroPersona);
writeln ('Registro agregado correctamente');
registroPersona.Documento:='';
registroPersona.Nombre:='';
registroPersona.Apellido:='';
registroPersona.Edad:=0;
registroPersona.Peso:=0;
CloseFile (archivoDataBase);
Muchas gracias de antemano por la ayuda prestada.
Saludos.
Valora esta pregunta
0