Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.80
AndrewVladimir
2 / 2 / 0
Регистрация: 27.07.2010
Сообщений: 74
#1

Проверка на существование - Delphi

27.08.2011, 15:50. Просмотров 1301. Ответов 3
Метки нет (Все метки)

Есть один txt-файл. В нем построчно написаны файлы и их вес в байтах.
Пример:
Код
files.rar 12345678
LOL.jpg 546987
Как создать проверку файлов? Если файлы не существуют или если они есть, но вес не тот, то приложение не запускается. Как это осуществить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.08.2011, 15:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Проверка на существование (Delphi):

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

проверка на существование файла - Delphi
Вот эта строка не работает, файл существует, а она не пашет. if FileExists('deductda.txt') = true then Я пробовал создавать функцию в...

Проверка файлов на существование и размер - Delphi
Как создать проверку на существование файла и размер. Например, если размер файла меняется от заданного, то приложение не запускается

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

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

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

3
anonimus
2152 / 1241 / 32
Регистрация: 28.04.2010
Сообщений: 4,549
27.08.2011, 16:15 #2
парсиш строки в файле, т.е. копируешь от первого символа до пробела (это будет имя файла)
и копируешь от пробела до конца строки (это размер)
существования файла можно проверить функцией FileExists()
Размер файла можно проверить так:
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var m:TMemoryStream;
begin
if not OpenDialog1.Execute then exit;
m:=TMemoryStream.Create;
m.LoadFromFile(OpenDialog1.FileName);
Label1.Caption:=floattostr(m.Size/1024); //размер в килобайтах
m.Free;
end;
0
AndrewVladimir
2 / 2 / 0
Регистрация: 27.07.2010
Сообщений: 74
27.08.2011, 19:08  [ТС] #3
А можно код целиком по сабжу дать, пожалуйста
0
anonimus
2152 / 1241 / 32
Регистрация: 28.04.2010
Сообщений: 4,549
27.08.2011, 20:33 #4
Цитата Сообщение от AndrewVladimir Посмотреть сообщение
А можно код целиком по сабжу дать, пожалуйста
нет нельзя, пиши сам
0
27.08.2011, 20:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.08.2011, 20:33
Привет! Вот еще темы с ответами:

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

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

Существование объектов - Delphi
Получил курсовую работу: Основу программы я сделал, но столкнулся с проблемой, а именно программа чертит только одну деталь которая...

Проверить поток на существование - Delphi
Реализация procedure TFormMain.BStartClick(Sender: TObject); begin MyThread := TMyThread.Create(True); // После создания поток...


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

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

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