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

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

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

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

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

проверка на существование файла
Вот эта строка не работает, файл существует, а она не пашет. if FileExists('deductda.txt') = true...

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

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

Проверка на существование картинки в интернете
Я делаю так загружаю картинку через интернет при помощи 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
5074 / 1946 / 413
Регистрация: 20.11.2009
Сообщений: 6,402
Записей в блоге: 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 в событие создания формы
Привет, уже не знаю что делать... В событие создания главной формы пишу проверку на существования...

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


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

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

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