| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Утечка памяти при работе с TIbDataSet [D6, FireBird 2.1]

Страницы:   < 1 2 3 4 >

DelphiN! ©   (2008-10-06 16:09:00) 

Доброго времени суток!
Написал следующее:

     for j := 0 to Res.Count-1 do
     begin
       ServerFT.SelectSQL.Text := 'INSERT INTO SERVERFT (FILENAME,FILESIZE,FILECRC,BASEDIR) VALUES('''+Res.FileName[j]+''','+
         IntToStr(Res.FileSize[j])+','+IntToStr(Res.FileCRC[j])+', '''+Res.BaseDir[j]+''')';
       ServerFT.ExecSQL;
       ServerFT.Transaction.Commit;
     end;


В массиве Res более 50 000 записей, при дохождении цикла до 5080ой записи программа вываливается с ошибкой о нехватке памяти. Куда девается память? Что я делаю неправильно?

---

clickmaker   (2008-10-06 17:31:00) [61]

а не проще ли завести параметры, чем каждый раз строку записывать?

---

Виталий Панасенко   (2008-10-06 17:16:00) [62]

При чем, серьёзно заболел...

---

Сергей М.   (2008-10-06 16:51:00) [63]

> SelectSQL.Text := ' INSERT


Ты , наверно, заболел ?)

---

Страницы:   < 1 2 3 4 >

Наверх