Programación General > Pascal

 archivos se come el ultimo registro

<< < (2/2)

m0skit0:

--- Código: Pascal ---procedure leersoc(var socio:tsocio;var rsoc:reg1;var finsoc:boolean); begin     finsoc:=eof(socio);     if not(finsoc)then       read(socio,rsoc)     else        finsoc:=true;end;  :brickwall:

tomas_sauron:
?????????????

Navegación

[0] Índice de Mensajes

[*] Página Anterior