Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - File Size. Delphi 7

Ответить
Настройки темы
Delphi - File Size. Delphi 7

Новый участник


Сообщения: 17
Благодарности: 0

Профиль | Отправить PM | Цитировать

Ребята этот код ошибку выдает, может вы что-то другова знайте?      

[bprocedure[/b] TForm1.Button1Click(Sender: TObject);
var
 f: file of Byte;
 size: Longint;
begin
 if OpenDialog1.Execute then
begin
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
try
 size := FileSize(f);
 Label1.Caption := 'File Size is ' + IntToStr(size) + ' Byte';
finally
 CloseFile(f);
 Edit1.Text := OpenDialog3.FileName;
 end;
end;
end;

Build
 [Warning] Unit1.pas(131): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(132): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(134): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(137): Unsafe type 'f: file of Byte'

-------
Mr. Eko Mazini

Отправлено: 11:48, 08-10-2004

 

Аватара для hasherfrog

Старый параноик


Сообщения: 2423
Благодарности: 85

Профиль | Отправить PM | Цитировать

1. Не пишите f: file of Byte;, объявите просто f: file;. Для файлов "без типа" и так подразумевается тип "байт".
2. Warning - не ошибка, а лишь предупреждение.
3. Почитайте хорошую статью про типы файлов в Делфи:
http://www.delphicorner.f9.co.uk/articles/misc14.htm

Отправлено: 12:00, 08-10-2004 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 17
Благодарности: 0

Профиль | Отправить PM | Цитировать

hasherfrog

Спасибо!

-------
Mr. Eko Mazini

Отправлено: 14:20, 08-10-2004 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - File Size. Delphi 7

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интернет - [addon] Get File Size 3.0 Rus gora Наборы обновлений для Windows XP/2003/Windows 7 9 01-01-2017 16:32
Разное - Paged pool size antikiller_bm Microsoft Windows 2000/XP 7 25-06-2013 21:20
Интернет - [addon] Get File Size gvshil Наборы обновлений для Windows XP/2003/Windows 7 24 05-11-2012 20:50
I/O Memory Cache Size Romasik Microsoft Windows 2000/XP 4 22-08-2006 20:13
L2 Cache Size Romasik Microsoft Windows 2000/XP 7 22-08-2006 13:13


« Предыдущая тема | Следующая тема »


 
Переход