Forum - Pascal
- salvataggio file
roma_91 (Ex-Member)
Newbie
Messaggi: 17
Iscritto: 11/03/2008
E' possibile fare in modo che la prima volta che vega eseguito il programma, si crei un file nuovo, dove salvare dati ecc..., e le volte successive che viene avviato il programma, salva i dati sullo stesso file prima crato????
Progman-92 (Member )
Expert
Messaggi: 368
Iscritto: 16/12/2007
Si,allora per salvare i dati sul file cosė per esempio
Codice sorgente - presumibilmente Delphi
program Somma;
uses crt, dos;
var a, b, somma: integer ;
file1: text;
begin
clrscr;
write ( 'Inserisci a=' ) ;
readln ( a) ;
writeln ;
write ( 'Inserisci b=' ) ;
readln ( b) ;
somma: = a+ b;
assign( file1, 'Somma.txt' ) ;
rewrite ( file1) ;
reset ( file1) ;
writeln ( file1, 'La somma č ' , somma) ;
close ( file1) ;
end .
Mentre per leggere da un file gia esistente cosė per esempio:
Codice sorgente - presumibilmente Delphi
program Somma;
uses crt, dos;
var file1: text;
somma: string ;
begin
assign( file1, 'Somma.txt' ) ;
reset ( file1) ;
read ( file1 , somma) ;
close ( file1) ;
writeln ( 'La somma contenuta nel file salvato in precedenza č' , somma) ;
end .
Penso di esserti stato chiaro!!! Non ho avuto la possibilita di provare il codice ma spero funzioni
Ultima modifica effettuata da Progman-92 il 14/03/2008 alle 20:58
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
Ciao, il seguente codice consente di creare un file (*.txt) e scriverci dentro...:
Codice sorgente - presumibilmente Delphi
program prova;
uses crt;
var
a : string [ 50] ;
b : string [ 50] ;
c : string [ 50] ;
archivio : text;
begin
clrscr;
write ( 'Nome = ' ) ;
readln ( a) ;
write ( 'Cognome = ' ) ;
readln ( b) ;
write ( 'Indirizzo = ' ) ;
readln ( c) ;
assign( archivio, 'c:\ciao.txt' ) ;
write ( archivio) ;
append ( archivio) ;
writeln ( archivio, 'Nome = ' , a) ;
writeln ( archivio, 'Cognome = ' , b) ;
writeln ( archivio, 'Indirizzo = ' , c) ;
writeln ( archivio, '_______________________________________' ) ;
close ( archivio) ;
end .
Spero si possa rivelare utile...
roma_91 (Ex-Member)
Newbie
Messaggi: 17
Iscritto: 11/03/2008
crash outside control (Normal User)
Expert
Messaggi: 217
Iscritto: 12/02/2008
Di niente, a questo serve una community no?