Scopo
Chiude un file aperto in precedenza.
Sintassi
Applicazione.CloseFile(numero file)
Argomenti
Numero File | Numero che identifica un file ottenuto dalla funzione FreeFile. |
Esempio
event OggettoFS.OnGetNamedPropertyValue(
string PropertyName //
inout string PropertyValue //
)
{
// Se è stata richiesta data e ora di ultima modifica
if PropertyName = UltimaModifica
...
//
// Se è stata richiesta la dimensione
if PropertyName = Dimensione
...
//
// Se è stata richiesta l'estensione
if PropertyName = Estensione
...
//
// Se è stato richiesto il contenuto
if PropertyName = Contenuto
{
// Se è un file
if GetNamedPropertyValue(Cartella) = False
{
int FileNumber = 0 //
//
// Provo a leggere il contenuto
try
{
// Ottengo il prossimo numero di file disponibile
FileNumber := FreeFile()
//
// Apro il file in lettura
EsempiMS.OpenFileForInput(GetNamedPropertyValue(NomeCompleto), FileNumber)
//
// Finché non ho letto tutto il file
while NOT(EOF(FileNumber))
{
string Line = "" //
//
// Leggo una parte di contenuto
EsempiMS.ReadLine(FileNumber, Line)
//
// Lo accodo
PropertyValue := PropertyValue +c Line
}
//
// Chiudo il file
EsempiMS.CloseFile(FileNumber)
}
}
}
}
string PropertyName //
inout string PropertyValue //
)
{
// Se è stata richiesta data e ora di ultima modifica
if PropertyName = UltimaModifica
...
//
// Se è stata richiesta la dimensione
if PropertyName = Dimensione
...
//
// Se è stata richiesta l'estensione
if PropertyName = Estensione
...
//
// Se è stato richiesto il contenuto
if PropertyName = Contenuto
{
// Se è un file
if GetNamedPropertyValue(Cartella) = False
{
int FileNumber = 0 //
//
// Provo a leggere il contenuto
try
{
// Ottengo il prossimo numero di file disponibile
FileNumber := FreeFile()
//
// Apro il file in lettura
EsempiMS.OpenFileForInput(GetNamedPropertyValue(NomeCompleto), FileNumber)
//
// Finché non ho letto tutto il file
while NOT(EOF(FileNumber))
{
string Line = "" //
//
// Leggo una parte di contenuto
EsempiMS.ReadLine(FileNumber, Line)
//
// Lo accodo
PropertyValue := PropertyValue +c Line
}
//
// Chiudo il file
EsempiMS.CloseFile(FileNumber)
}
}
}
}
Questa procedura deve essere chiamata dopo aver maneggiato un file, altrimenti il file rimane bloccato.
Ultima modifica: 25/10/2016 / Validità: da 6.8.3060