15.01.2010, 10:17
|
 |
Местный
|
|
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
|
|
Var
F : File Of Byte;
L : Integer;
Такой вариант:
Код:
begin
AssignFile(F,'d:\text.txt');
Reset(F);
L:=SizeOf(F);
CloseFile(F);
end;
L- размер в байтах |