![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - File Size. Delphi 7 |
|
Delphi - File Size. Delphi 7
|
Новый участник Сообщения: 17 |
Ребята этот код ошибку выдает, может вы что-то другова знайте?
[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' |
|
------- Отправлено: 11:48, 08-10-2004 |
Старый параноик Сообщения: 2423
|
Профиль | Отправить 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
|
Профиль | Отправить PM | Цитировать hasherfrog
Спасибо! |
------- Отправлено: 14:20, 08-10-2004 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Интернет - [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 |
|