Добавление тегов в заголовок XML

[Аватар]

Если бы у меня стояла задача максимально оптимизировать по времени подобную вещь я бы отказался от запросов и читал бы DBF последовательно, что с ним в принципе достаточно легко сделать поскольку его структура достаточно проста, и ни каких Memo, а сразу формирование XML, скорее всего без использования TXMLDocument

используйте параматезированный запрос для перегонки и будет вам счастье

не понял что имеется ввиду

[artemavd]

не понял что имеется ввиду

я тоже не понял.

и читал бы DBF последовательно, что с ним в принципе достаточно легко сделать поскольку его структура достаточно проста, и ни каких Memo, а сразу формирование XML, скорее всего без использования TXMLDocument

как это "последовательно" и сразу строить XML без использования TXMLDocument? Есть ли пример какой?

[Аватар]

XML это текстовый файл, куда все его примочки можно спокойно записывать не используя XMLDocument, который сам по себе достаточно тормозной, а тем более если создаётся млн объектов в нем. С dbf посложней, это все таки двоичный файл, у которого есть заголовок с информцией о структуре, а дальше идут фиксированной длины блоки (записи) с содержимым полей. Пример чтения если нужен, то только во вторник брошу

[artemavd]

Ок, давай во вторник. Подскажи тогда хотя бы как сделать, чтобы записывались все 20 записей, а не последняя только?

[Аватар]

попробуй

              with AddChild('number') do
              begin
                for i:=0 to Form1.sMemo1.Lines.Count - 1 do
                begin
                 ChildValues['number']:=Form1.sMemo1.Lines[i];
                end;
              end;

на

                for i:=0 to Form1.sMemo1.Lines.Count - 1 do
                begin
                  with AddChild('number') do ChildValues['number']:=Form1.sMemo1.Lines[i];
                end;

upd + брось сюда структуру dbf

[artemavd]

Да, так работает). Еще оодин вопросик небольшой. Если использовать перегон записей из DBF в Memo, то, как прописать, чтобы визуально было видно как добавляются новые строки в Memo? А то я написал конечно

 Application.ProcessMessages;

но, это не решает эту проблемку и приложение подвисает на момент перегона. Отвисает только когда перекинет все записи. Хотелось бы, чтобы визуально было видно)

[Аватар]

Например реализовать саму перегонку в потоке

[artemavd]

С потоками я как бы не очень...не приходилось с ними работать раньше

[BARNEY]

for i:=0 to Form1.sMemo1.Lines.Count - 1 do
                begin
             with AddChild('number') do ChildValues['number']:=Form1.sMemo1.Lines[i];
              Application.ProcessMessages;              
                 end

;

а так тоже виснит?

[artemavd]

да нет, на 20-то записях конечно не висит)
Вот. Сделал в файле 100 файлов.