Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - creazione file
Forum - Pascal - creazione file

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
salve a tutti :D

sono nuovo della comunità e anche dello studio del pascal (da meno di un anno con una prof che il 2° giorno di scuola ne sapeva già meno di me...)
inanzitutto complimenti per il sito scritto in kwrite :k:

fatte le presentazioni volevo chiedere una cosa:
c'è un modo semplice per controllare che un file esista già senza usare il findfirst(funziona ma è un po' complicato e pensare che la mia prof non me lo vuole dire :grr: ) dell'appendice 6 'cerca file'?

altrimenti ringrazio cmq :) e mi scuso per la lunghezza :asd:

Ultima modifica effettuata da il 02/05/2006 alle 18:14
PM Quote
Avatar
pierotofy (Admin)
Guru^2


Messaggi: 6230
Iscritto: 04/12/2003

Segnala al moderatore
Postato alle 18:45
Martedì, 02/05/2006
FileExists? :-|

In Delphi c'è al 100% in Pascal (Turbo Pascal suppongo) non so se c'è...


Il mio blog: https://piero.dev
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:51
Martedì, 02/05/2006
ho provato ma non va.... :(

ma serve qualche libreria per farlo funzionare?

PM Quote
Avatar
frank (Ex-Member)
Pro


Messaggi: 190
Iscritto: 28/08/2005

Segnala al moderatore
Postato alle 12:31
Giovedì, 04/05/2006
mmmm... non so se c'è una procedura/funzione specifica in Pascal tradizionale, ma con un piccolo ciclo dovresti risolvere il problema:
Codice sorgente - presumibilmente Delphi

  1. ...
  2. CONST nomefile = 'tuofile'
  3. ...
  4. findfirst(dir,...,tuosearchrec);
  5. if not (tuosearchrec.name = nomefile) then begin
  6.   repeat findnext(tuosearchrec);
  7.   until tuosearchrec.name = nomefile;
  8. end;  
  9. ...


ciao...8-)

PM Quote
Avatar
frank (Ex-Member)
Pro


Messaggi: 190
Iscritto: 28/08/2005

Segnala al moderatore
Postato alle 16:09
Giovedì, 04/05/2006
ah dimenticavo prova anche con questo:
FileSeek(Handle,FOffset,Origin : Longint)
anche se non l'ho mai usato :)
cmq, la libreria per FileExists (e forse anche FileSeek) dovrebbe essere filutil.pas o qualcosa del genere... prova a cercare con S.Google ;)

PM Quote
Avatar
AndRyu™ (Member)
Rookie


Messaggi: 41
Iscritto: 03/05/2006

Segnala al moderatore
Postato alle 16:47
Venerdì, 05/05/2006
si, ho trovato la liberia e funziona perfettamente, grazie frank

PM Quote