funzione GetFileSize (const FileName: string): Integer;
var
restr: TSearchRec;
iniziare
Risultato: = 0;
se FindFirst (FileName, faAnyFile, sr) = 0 allora
iniziare
Risultato: = sr.Size;
FindClose (sr);
fine;
fine;
funzione GetFileSize (const FileName: string): Integer;
var
restr: TSearchRec;
iniziare
Risultato: = 0;
se FindFirst (FileName, faAnyFile, sr) = 0 allora
iniziare
Risultato: = sr.Size;
FindClose (sr);
fine;
fine;
