VPF::Потоки и работа с TstringList - Форум программистов

mimo

Дата 19.5.2011, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.5.2011

Репутация: нет
Всего: нет

Здравствуйте, есть чекбокс

Код


procedure TForm1.chk1Click(Sender: TObject);
var
temp: Tstringlist;
begin
temp: TstringList.create;
temp.loadfromfile('test.txt');
end;

есть потоки
   With TClientThread.Create(true) do
    begin
     CheckProperty1 := chk1.Checked;
    Resume;
   end;
и мне необходимо, чтобы  в процедуре .Execute каждый поток работал с текстовым файлом, загруженным в temp. Как осуществить такую работу правильно? потокобезопасно? Можно ли сделать такое в самом .Execute ,т.е. каждый поток создавал и загружал в temp один и тот же текстовый файл? или как перенести этот temp в .Execute?

Snowy

Дата 20.5.2011, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

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

bems

Дата 20.5.2011, 05:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Цитата(Snowy @ 20.5.2011, 00:26

)

Если делать через единый temp, то потоки будут мешать друг другу.

Но если каждый тред только читает temp, а результаты туда не пишет, то должно быть ок

--------------------

Обижено школьников: 8

mimo

Дата 20.5.2011, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 8.5.2011

Репутация: нет
Всего: нет

файл не большой, около метра.
т.е. если записать

Код


procedure TForm1.Execute;
var
  temp: Tstringlist;
begin
...
 temp: TstringList.create;
 temp.loadfromfile('test.txt');
...

то работать будет нормально?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »