Обработка файлов из БД. Delphi

День добрый!
У меня есть директория, в которой n-файлов (например, json)
Как мне реализовать обработку всех файлов?
Делаю так, но только один файл проходит

s := TStringList.Create;
  if cds.RecordCount > 0 then
  begin
    cds.First;
    while not cds.Eof do
    begin
      s.Clear;
      s.LoadFromFile('C:\123');
//парсинг
   end;
cds.Next;
end;

cds использую, тк у меня в таблице idFile совпадает с именем json-файла

что такое cds в данном случае?

старый “классический” вариант - чтение из ФС через функции FindFirst / FindNext
в современных версиях Delphi есть продвинутые методы для этого в библиотеке IOUtils TDirectory метод GetFiles()
https://docwiki.embarcadero.com/Libraries/Sydney/en/System.IOUtils.TDirectory.GetFiles

Это не понял, извините.

1 лайк

может вместо 123 надо каждого из json скармливать?

Все исправила! Подскажите, как мне подсчитать количество добавленных записей в базу данных? Чтобы выводилось в ShowMessage хотя бы
Хранимую процедуру прописать или есть другой способ?

Это как?
Если текущее количество записей в таблице, то запрос типа SELECT COUNT(*) FROM mytable.

  1. а) завести переменную и после каждого INSERT увеличивать переменную на 1. б) показать переменную

  2. а) count записей в базе (1); б) работа с базой; в) count записей в базе (2); г) показать разность (2)-(1)