Close File

Applicazione.CloseFile(numero file)

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)
      }
    }
  }
}