Get file size

[Jake012345]

Hello!

I used files a little time ago, so I forgot how to, then I tried it like that:

Code: Pascal  [Select][+][-]

1. var
2.   path: string;
3.   sFile: file;
4. begin
5.  
6.       writeln('Write here the location of the file to be checked!');
7.       Write('>');
8.       Readln(path);
9.       Assignfile(sFile, path);
10.       Reset(sFile);
11.       writeln(IntToStr(FileSize(sfile)), ' bytes');
12.       readln;
13. end.
14.  

and it gives runtime error on Reset(sFile); .

[Handoko]

Try this:
https://www.freepascal.org/docs-html/rtl/system/filesize.html

[Jake012345]

It still gives the "unhandled issue occured" and "access denied"
but when I started Lazarus as Administrator it stays say.

[Jake012345]

And closes the window immediately, so it was hard to read

[speter]

Jake012345,

Since your file variable is of type "file", I think you need to specify the record size in reset(); try

Code: Pascal  [Select][+][-]

1. reset(sfile,1);

which specifies the record is a byte;

Alternatively, type your file variable as "file of byte".

Also don't forget to close the file:

Code: Pascal  [Select][+][-]

1. closefile(sfile);

cheers
S.

[Kays]

Code: Pascal  [Select][+][-]

1.       writeln(IntToStr(FileSize(sfile)), ' bytes');

Whoa! It’s also been quite a while since you’ve used write/writeLn? You can just pass an integer value to writeLn, no need for intToStr.

It still gives the "unhandled issue occured" and "access denied"
but when I started Lazarus as Administrator it stays say.

Well, these exceptions aren’t raised without a reason: You have to be authorized to access every component along the entire specified path. Maybe, for debugging insert a writeLn for getCurrentDir and path?

Try this: https://www.freepascal.org/docs-html/rtl/system/filesize.html

Note, this returns the number of “records” and a record for an untyped file is by default 128 Bytes, unless you do reset(sFile, 1); (so 1 defines a record’s size in Bytes).

[Jake012345]

how tiring is that ....
But thanks! finally working.

[MarkMLl]

Check my ProjectShare site and share your content: FPCShare

One moment please. You're making absolute beginner mistakes but claiming to run a project-sharing site which is relevant to the community?

Hadjab MarkMLl

[dbannon]

Check my ProjectShare site and share your content: FPCShare

Hmm, it certainly looks good. But has a spelling mistake in the opening paragraph, it has underlined text that is not a link and, worst of all, a link to Facebook.

Not a good start IMHO.

Davo

[Jake012345]

yes, it's mainly for other people to share their better projects, that helps to the beginners like me

(just because I didnt find any places like that)