Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц, летом дешевле!

Ответ
 
Опции темы Поиск в этой теме
Старый 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 вне форума Ответить с цитированием