Phi (Member)
Expert
Messaggi: 241
Iscritto: 30/12/2009
|
Non so se ho capito bene.
La prossima volta posta un sorgente
Comunque puoi creare una procedure che legge i dati da tastiera, usa vari readln.
Poi una procedura che scriva i valori ottenuti sul file.
Ripeti questa sequenza finche non hai finito di inserire dati.
Puoi usare un codice simile a questo:
Codice sorgente - presumibilmente Delphi |
type anagrafica =record nome:string[20]; cognome:string[20]; residenza:string[20]; eta:integer; end; var F : file of anagrafica; A : anagrafica; S : char; nomefile : string; procedure inserimento; begin writeln; writeln('inserisci nuovo record); with A do begin write('nome =');readln(nome); write('cognome =');readln(cognome); write('residenza=');readln(residenza); write('età =');readln(eta); end; end; procedure scrivi; begin write(F,A); end; BEGIN writeln('inserisci nome del file'); readln(nomefile); assign(F,nomefile); rewrite(F); repeat inserimento; scrivi; write('vuoi inserire un altro record del file ?? (s/n) '); repeat readln(s) until (s='s')or(s='n'); until (s = 'n'); close(F); END.
|
Ultima modifica effettuata da Phi il 12/05/2010 alle 16:21 |