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;