Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2020, 11:40   #1
IvaNoff2020
Пользователь
 
Регистрация: 09.12.2020
Сообщений: 30
По умолчанию число файлов в папке

Подскажите, почему не выводит число файлов в папке? Заранее спасибо

Код:
procedure TForm1.MenuItem2Click(Sender: TObject);
var
   img_fil: TStringList;
   file_direct: string;
begin

   OpenDialog1.Title:='Открыть файл';
   if OpenDialog1.Execute then
   begin
      Edit2.Text := OpenDialog1.FileName;
      Image1.Picture.LoadFromFile(Edit2.Text);
      Memo1.Lines.Add(Edit2.Text);

      file_direct := 'E:\foto';

      try
         img_fil := FindAllFiles(file_direct, '*.jpg;', true);     // маска "jpg" для поиска
         ShowMessage(Format('Число файлов *.jpg =', [img_fil.Count]));
      finally
         img_fil.Free;
      end;

   end;

end;
IvaNoff2020 вне форума Ответить с цитированием
Старый 23.12.2020, 11:47   #2
IvaNoff2020
Пользователь
 
Регистрация: 09.12.2020
Сообщений: 30
По умолчанию

IvaNoff2020, Уже не надо. Решил не заморачиваться с ShowMessage.

Проще вместо этой шляпы
ShowMessage(Format('Число файлов *.jpg =', [img_fil.Count]));
вывести результат в поле Edit. А там уже с числом работать.

Edit1.Text := inttostr(img_fil.Count);
IvaNoff2020 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функция перебора файлов в папке не видит файлов ПВВ Microsoft Office Excel 1 22.10.2013 16:30
Расчёт количества файлов в папке без учёта скрытых файлов dfc Microsoft Office Excel 2 11.10.2013 11:06
Скрипт, который считает количество файлов в каждой папке, находящихся в данной папке so1idsnake Помощь студентам 20 07.08.2013 21:38
Как узнать число файлов и их суммарный размер в указанной папке? 3D Hunter Общие вопросы Delphi 3 11.11.2009 16:26
Отслеживает появление в папке файлов. слежение за определенным файлом в определенной папке. RammFan Win Api 1 09.06.2007 10:09

Реклама для незарегистрированных, регистрация на форуме