, fungerer getfilesize (denne filnavn: string): heltal, var, sr: tsearchrec; begynder, resultat: = 0, hvis findfirst (filnavn, faanyfile, sr) = 0, begynder, resultat: = - størrelse, findclose (sr),,,,,,,,
Previous:få kommando linjen parametre
Next Page:msgbox funktion