Newsgroup: it.comp.lang.pascal
Titolo: FILE...

procedure inserimento(var filescuola:filedati);
var sup:alunno;
begin
  clrscr;
  write('Inserisci il nome: ');
  readln(sup.nome);
  write('Inserisci il cognome: ');
  readln(sup.cognome);
  write('Inserisci la data di nascita (giorno): ');
  readln(
sup.data_nascita.gg
);
  write('Inserisci la data di nascita (mese): ');
  readln(
sup.data_nascita.mm
);
  write('Inserisci la data di nascita (anno): ');
  readln(sup.data_nascita.aa);
  write('Inserisci il numero di telefono: ');
  readln(sup.telefono);
  write('Inserisci l''indirizzo (citta): ');
  readln(sup.indirizzo.citta);
  write('Inserisci l''indirizzo (provincia): ');
  readln(sup.indirizzo.provincia);
  write('Inserisci l''indirizzo (via): ');
  readln(sup.indirizzo.via);
  write('Inserisci l''indirizzo (numero): ');
  readln(sup.indirizzo.numero);
  write('Inserisci la classe: ');
  readln(sup.classe);
  write('Inserisci la sezione: ');
  readln(sup.sezione);
  reset(filescuola);
  seek(filescuola,filesize(filescuola));
  write(filescuola,sup);
end;
ERROR 5: File Access Denied!!!
Perkè questa procedure mi crea errore???
dato ke il file filescuola esiste SICURAMENTE, l'istruzione reset dovrebbe
aprirmi il file in letture e scrittura, e invece quando va a scrivere, crea
l'errore!!!
Grazie CIAO

 Perkč questa procedure mi crea errore???


 > Perkè questa procedure mi crea errore???


 > > Perkč questa procedure mi crea errore???


no no non centra nulla...
l'assign lo puoi fare dove ti pare, basta che lo fai eseguire
prima degli altri comandi sul file!
NM

 ha scritto nel messaggio
news:3ccdb96d...@news.tiscalinet.it...


> dimenticavo, assign è nel main...
Personalmente, quando opero su file, preferisco aprirli e chiuderli di volta
in volta: in una procedura di inserimento dati apro il file all'inizio della
procedura, faccio quello che devo fare e alla fine lo chiudo; se subito dopo
devo riaprirlo per cercare qualcosa, sarà la procedura di ricerca che
provvederà a riaprirlo e richiuderlo.
In questo modo non ho mai avuto problemi.
La mia ex-professoressa di informatica affermava invece che era meglio
aprire il file nel programma principale, fare tutte le operazioni che si
volevano (inserimento, ricerca, aggiornamento, ecc...) e solo prima di
terminare il programma era necessario chiudere il file. ...sappi che tale
individuo affermava che il pascal era un'evoluzione del C ;-)
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com

 l'errore!!!
Prova a guardare il filemode
Ciao, Minjo

LOL :DDDD
NM


 ha scritto nel messaggio
news:qMaz8.29230$W9.7...@twister2.libero.it...


 > l'errore!!!
Allora: un bel colpetto di rewrite anziché reset? reset apre il file in sola
lettura, e non in lettura/scrittura!qesta modalità forse non esiste neanche
in Pascal, devi alternare reset e rewrite/append per passare da lettura a
scrittura, penso
Ciao
--
Paolo Giarrusso
Per rispondere togliere solo "TOGLIMI" dall'indirizzo, non _spam.

- reset apre il file
il modo di accesso e' deciso dal valore di`FileMode' al
momento della chiamata alla reset( )
- append lo apre e ti posiziona in fondo
- rewrite lo crea  (o ricrea)
--
Dreadnaut
(Life would be easier if I had the source code)