В программе есть данные в виде объектов в TObjectList, нужно, например, по нажатию кнопки дописать в (большой) файл данные или изменить там данные. Что-бы было удобнее хочу перенести сохранение в отдельный поток. Нажал сохранить и добавить - он сохраняет, а пользователь дальше без тормозов работает. Про потоки почитал, простые примеры поизучал. Но как сделать реальную задачу пока не пойму. Т.к. файл с данными может быть один, то по идеи поток должет быть один для сохранения. Но сохранить может потребоваться и в тот момент когда уже идет сохранение (пред. не успел сохранится), надо как-то дождаться и дать команду сохранять следом другие данные. Помогите понять как это нужно организовать.

Читать до просветления
http://forum.vingrad.ru/forum/topic-60076.html

Как раз весь день мучал себя, но просветления нет. Много всего. К концу голова становится квадратной от теории.
Надо чтобы данные сохранялись в отдельных потоках, но потоки ждали предыдущие пока сохранят. Даже не придумаю как лучше подступится.

Один дополнительный поток для сохранения, и задания для него.

Еще раз более глубоко и вдумчиво читай шестую часть. Акцент на критические секции. 

Тебе надо: 

• Cоздать класс - наследник TThread (один). Допустим TSaveFileThread
• В этом классе описать метод сохранения данных в файл. При чем само сохранение засунуть в критическую секцию 
• На каждое нажатие кнопки "Сохранить" создавать объект этого класса (грубо говоря, создавать поток и запускать его)

Еще можешь почитать про метод WaitFor. Специально для таких вот задач как у тебя "Надо чтобы данные сохранялись в отдельных потоках, но потоки ждали предыдущие пока сохранят." он и предусмотрен. WaitFor описан в пятой главе

Это сообщение отредактировал(а) Poseidon - 3.6.2013, 19:29

Не пойму.
В главном модуле завел переменную     
Sync: TRTLCriticalSection;
Создаю поток для сохранения.



В потоке 


Данные сохраняются но через какое-то время или почему-то получаю ошибку
---------------------------
Debugger Exception Notification
---------------------------
Project My.exe raised exception class EFOpenError with message 'Cannot open file "D:\a.data". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом'.
---------------------------
Break   Continue   Help   
---------------------------

Ошибка в 17ой строке.

Первый код - это OnClick кнопки "Сохранить"? Ты просто скопипастил код или все-таки попытался в нем разобраться? Прочти внимательно 
В твоем случае самый долгоживущий поток - это основной поток программы.

?


Можно считать так, на деле сложнее, пусть будет щелчок по кнопке или, например, событие таймера.



Пытаюсь. В примерах он для доступа к данным в главном модуле... Мне же надо другое. Не пойму. Т.к. эта ошибка, значит кусок чтения и записи в файл не блокируется.


Не пойму. Критическая сессия, как я понимаю, открытие и запись в файл. Мне ее наоборот нужно в отдельный поток вынести.

http://forum.vingrad.ru/act-Help/CODE-01/HID-17.html

Правильно. Только вход в критическую секцию - это EnterCriticalSection и тут у тебя все правильно. А вот инициализация - InitializeCriticalSection - это совсем другое и, вероятнее всего, у тебя инициализируются разные секции.


Это сообщение отредактировал(а) Poseidon - 5.6.2013, 18:56

Перенес в создание главной формы. Так вроде ок. Delete... ее обязательно делать?

Ну а как же? Освобождение ресурсов всегда обязательно делать.