Jak to działa? (filesize)

0

var
film:string;
fsize:integer;
plik:file;
begin
plik:=('film.avi');
fsize:=filesize(plik);
label3.caption:=inttostr(fsize);

Dlaczego to nie działa? Co należy zmienić w tej funkcji aby na labelu3 pojawił się rozmiar pliku film.avi który znajduje się w tym samym katalogu co program.

Pozdrawiam!

0

A moze by tak helpa czytac??? :-[ :-[

Do FileSize plik musi byc otwarty

A wiec

var
F:file of byte;
begin
AssignFile(F, nazwapliku);
FileMode:=fmOpenRead; //na wypadek gdyby plik byl tylko do odczytu, np na CD
Reset(F);
Label1.Caption:=IntToStr(FileSize(F));
CloseFile(F);

0

A właśnie, co do help - nie ma jakieś w necie polskiej wersji helpa do Delphi6?? :) - I can't english.

0

ZABIJUE UDUSZE WYKASTRUJE !!!!

Pytałeś się o to w poprzednim poscie!! http://4programmers.net/Forum/viewtopic.php?id=39650
To kontunuuj topic, a nie twórz nowy.
Ja napisałem: Zobacz do helpa!!
Nie znasz angielskiego to http://slowniki.onet.pl

Ja wiem, że nawet helpa nie włączyłeś. Wystarczyło wpisać w index FileSize i otworzyć. Potem masz odnośnik Example (Przykład)!!

var
f: file of Byte;
size : Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S);

 y := y + Canvas.TextHeight(S) + 5;
 Seek(f,size div 2);
 S := 'Position is now ' + IntToStr(FilePos(f));
 Canvas.TextOut(5, y, S);
 CloseFile(f);

end;
end;

0

function filesize(filename : string) : integer;
var
Plik : TSearchRec;
FSize : Integer;
begin
if FindFirst(filename, faAnyFile, Plik) = 0 then
FSize:= PLik.Size else FSize:=0;
FindClose(PLik);
result := fsize;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1