Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 8, средняя оценка - 4.88
AndrewVladimir
2 / 2 / 1
Регистрация: 27.07.2010
Сообщений: 74
#1

Проверка файлов на существование и размер - Delphi

04.10.2011, 21:01. Просмотров 1130. Ответов 2
Метки нет (Все метки)

Как создать проверку на существование файла и размер. Например, если размер файла меняется от заданного, то приложение не запускается
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2011, 21:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверка файлов на существование и размер (Delphi):

Проверка на существование
Есть один txt-файл. В нем построчно написаны файлы и их вес в байтах. Пример:...

Проверка на существование файла
В общем делаю проверку на существования файла через if но если файла нет то...

проверка на существование файла
Вот эта строка не работает, файл существует, а она не пашет. if...

Проверка на существование текста из Memo
Привет, как можно проверить текст в мемо на существование!? именно нужно...

Проверка на существование картинки в интернете
Я делаю так загружаю картинку через интернет при помощи Edit1.text. Картинки на...

Реестр: проверка на существование раздела и ключа
Здравствуйте скажите как можно создать раздел в реестре и в этом разделе...

2
GhostMan
Заблокирован
04.10.2011, 21:13 #2
Лучший ответ Сообщение было отмечено AndrewVladimir как решение

Решение

Цитата Сообщение от AndrewVladimir Посмотреть сообщение
Как создать проверку на существование файла и размер. Например, если размер файла меняется от заданного, то приложение не запускается
Для проверки существования файла можно использовать:

Delphi
1
2
3
4
If FileExist (FileName) then
 begin
  <body>
 end;
Вроде, так
0
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,797
Записей в блоге: 1
04.10.2011, 21:48 #3
вот проверяем размер файла, пример написан на основе функции самодельной, использование функции дано тоже, чтобы потом вопросов было меньше
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function GetFileSize(FileName: String): Int64;
var FS: TFileStream;
begin
  Result := 0;
  FS := TFileStream.Create(FileName, fmOpenRead);
  Result := FS.Size;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var S: String;
begin
  if OpenDialog1.Execute then
    begin
      S := 'Размер файла "'+OpenDialog1.FileName+'" = '+ IntToStr(GetFileSize(OpenDialog1.FileName))+' байт';
      MessageDlg(S, mtInformation, [mbOK], 0)
    end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2011, 21:48
Привет! Вот еще темы с решениями:

Проверка на существование .ini в событие создания формы
Привет, уже не знаю что делать... В событие создания главной формы пишу...

Проверка на существование неизвестного файла, зная лишь его расширение
Задача проста нужно отследить появление файла в папке (путь к ней известен) но...

проверка файлов
Всем доброе время суток подскажите как сделать что бы вылетало сообщение...

Проверка наличия файлов
Необходимо проверить наличие файлов в папке. for i:=1 to kp-1 do begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru