Newsgroup: it.comp.lang.pascal
Titolo: help

ciao
volevo chiedere  se qualcuno poteva spiegarmi dei
piccoli pezzi di un programma ke mi hanno dato?
Program Fatturato_ditta;
Uses Crt;
Var
    fat_mesi        : Array[1..12]Of Extended;<--- ke tipo č?
    cod_fil,j       : Word;
    mes_ven,code    : Byte;
    fat_mes,fat_tot : Extended;
    nomefile        : String;
    filed           : Text;
    scelta          : Char;
Function FileExists(FileName: String): Boolean;
 Var
  F : File;
 Begin
  {$I-} <---a cosa sevono ste direttive?
   Assign(F,FileName);
   FileMode := 0;  (* Set file access to read only *)
   Reset(F);
   Close(F);
  {$I+}
   FileExists:=(IOResult=0) And (FileName<>'');<= questa riga non l'ho
prorio capita
 End;  { FileExists }
-In generale come fuziona questa "function"?
questa e la parte del programma dove viene utilizzata:
Repeat
  GotoXY(3,24);
  Write('Dare il nome del file che contiene l''archivio, nome=');
  Repeat
   GotoXY(56,24);
   Write('                       ');
   GotoXY(56,24);
   Readln(nomefile);
  Until FileExists(nomefile) Or (Ord(nomefile[1])=27);
  If FileExists(nomefile) Then Begin
   Assign(Filed,nomefile);
   Reset(Filed);
...................
vabbe penso ke il resto non sia importante.
Se potreste aiutarmi ve ne sarei riconoscente
in tutti i casi grazie per l'attenzione...
ciao

 -In generale come fuziona questa "function"?
In generale questa funzione controlla se un file esiste oppure no, tu gli
dai un file e ti risponde true se il file esiste, false altrimenti. In
realtà ti dice qualcosa in più se hai la possibilità di leggere il file.
reset(f)
Ciao RdC
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal
sorgenti, tutorial ed utility
---------------------------------------------------------


Questa è la tipica funzione di delphi , anche il nome è lo stesso! creso sia
proprio quella.
serve a verificare se un file esiste. cerca nell'help di delphi e trovi
tutto quello che c'è da sapere
 extended è un tipo + lungo di logint. mi sembra che operi in base 10 ma non
ne sono sicuro

A non ne ho proprio idea sicuramente non è stato scritto in TP
Il TP, per quanto ricordi, prevede il tipo Extended, quindi quel
codice può essere scritto in TP.  Sarà un vettore contenente il
fatturato mese per mese.
-- 
Andrea Laforgia
"640kb of memory should be enough for anyone." -- Bill Gates.

 FileExists:=(IOResult=0) And (FileName<>'');
fileexist e' una funzione con tipo di ritorno boolean e
questa e' un'espressione di tipo booleano il cui valore
e' l'and delle due condizioni: IOResult = 0 (vera se e'
stato possibile aprire, cioe' esiste) e se il nome passato
come parametro non era una stringa vuota
{$I + o -}  attiva o disattiva l'IO Checking.
se e' attivo il compilatore genera automaticamente del
codice che controlla il risultato delle chiamate di input/
output: se una di queste restituisce un valore non-zero
(errore) il programma viene terminato con un runtime error.
se e' disattivato non viene effettuato nessun controllo,
ma il risultato delle operazioni di IO puo' essere letto nella
var IOResult
-- 
Dreadnaut
(Life would be easier if I had the source code)

 > fat_mesi : Array[1..12]Of Extended;<--- ke tipo è?


> Io nel mio help non l'ho trovato Extended .... :|
c'e' c'e', ho controllato adesso, dall'indice sotto Real,
come nel mio


 come nel mio
Hai ragione, c'è ma la voce extendend no l'ho mica trovata
Ciao
 RdC
