Проблемы с памятью в TStringList

[MartG]

LS := TStringList.Create; //Создал СтрингГрид
LS.LoadFromFile(NF); //Гружу файл в СтрингЛист 6000 или 12000 строк

// обрабатываю

LS.SaveToFile(NF); //Сохранил в файл 6000 строк
LS.Free; //Убил СтрингЛист

// после некоторых действий может возникнуть необходимость
// добавить ещё 6000 строк, то делаю
LS := TStringList.Create; //Создал СтрингГрид
LS.LoadFromFile(NF); //Гружу файл в СтрингЛист строк

// добавляю 6000 строк

LS.SaveToFile(NF); //Сохранил в файл 6000 строк
LS.Free; //Убил СтрингЛист
//**

Но добавить 6000 строк не могу.
Только где-то 20% и вылетает ошибка CPU: похоже с памятью

[macomics]

А обязательно с файлами работать именно через TStringList. Может стоит использовать обычные функции работы с текстовыми файлами. Это и память сэкономит.

Уточняющий вопрос. 6000 строк добавляются в произвольные индексы или в конец списка?
Если в конец, тогда естественно лучше использовать обычный append.

Как вариант, если файл умещается в памяти, то вы можете выделить для него один линейный блок памяти через VirtualAlloc и самостоятельно найти начало всех строк в нем, сохраняя указатели не в TStringList, а в обычный TList. Так вы снизите нагрузку на менеджер динамически распределяемой памяти.

[MartG]

macomics, спасибо за ответ.

Через TStringList удобно было работать,
раньше было меньше строк и потому проблемы не было,
но теперь если проблему не решу,
то прийдется менять программу.
Везде в инете пишут о гораздо больших строках,
потому я и не задумывался об объёме.

Да, в конечном итоге в файле текст
и запись идет либо файлом, либо добавляются строки в конец файла.

[evg_m]

LS := TStringList.Create; //Создал СтрингГрид
LS.Capacity:=6000;12000;
LS.LoadFromFile(NF); //Гружу файл в СтрингЛист 6000 или 12000 строк

[MartG]

evg_m

Спасибо за подсказку, как определиться с объёмом памяти

P.S.
Всем спасибо. Вопрос решен.