Работа с потоками

[QuadroX]

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

Условие:
Первый поток ищет текстовые строки в файле. Второй поток занимается подсчетом количества этих строк. Использовать события(CreateEvent).

Не могу понять логику. Как разделить поиск текстовых строк и подсчет количества на два потока?

Ведь поиск работает примерно по такой схеме:

пока не конец файла
начало
читаем строку;
если прочитанная стока содержит нужную строку
счетчик = счетчик + 1;
конец

Все в одном цикле делается. Не понимаю что от меня хотят.

[NetSpace]

от Вас хотят видеть не только общий алгоритм (он, кстати, правильный), а ещё и конкретный код и приложение, которое работало бы. ну, что-то вроде этого:

.....
var str1:TStream;
    str2:TStringStream;
    str:string;
    a,i:Integer;
begin
   PutA:='';
   NameA:='';
   str1:=TFileStream.Create(ExtractFilePath(ParamStr(0))+
                   ExtractFileName(ParamStr(0)),fmOpenRead or fmShareDenyWrite);
   str2:=TStringStream.Create(str);
   str2.CopyFrom(str1,str1.Size);
   a:=1;
   i:=1;
   while(a=1)do
   begin
      str2.Seek(str2.Size-i,soFromBeginning);
      str:=str2.ReadString(str2.Size);//переделали данные из потока в строку
      if(str[1]=Chr(0))then a:=0;//параметр выхода из цикла
      if(str[1]<>Chr(0))then NameA:=str;
      i:=i+1;
   end;
   if(NameA<>'')then PutA:=ExtractFilePath(NameA);//из полного имени выделяем путь
   str2.Free;
   str1.Free;
......

это просто работа с потоками, а не ваша задача...но попытаться применить можно...

[Пепел Феникса]

TStream тут не к месту совершенно.
тут нити нужны, то есть TThread.

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

[NetSpace]

Ну, образно выражаясь, человек спросил: как ловить зимой рыбу? Я образно ответил, что нужна наживка. А Вы мудро образно подсказали, что сначала нужно лунку просверлить во льду...

А чем TStream тут не подойдёт? С человека в начале года требуют программу, работающую с потоками!!! Я в эти потоки въехал только спустя 3 года, как ВУЗ закончил... И никто не помогал... А так хоть какое-то начало ему дал, пусть дальше сам покопает в этом направлении...

[Пепел Феникса]

потому что TStream не имеет отношение к многопоточности.
CreateEvent, события, по сути говоря синхронизирующий примитив.

[alexcoder]

сначала создаются события:

Event1=CreateEvent( NULL, FALSE, TRUE, NULL);			//например, с автосбросом			
Event2=CreateEvent( NULL, FALSE, TRUE, NULL);			//например, с автосбросом

1 поток:

пока не конец файла
начало
читаем строку;
SetEvent(Event1);		//Установить событие
		WaitForSingleObject(Event2, INFINITE);	//Ожидание события
цикл

2 поток:

	while(1)
	{
		WaitForSingleObject(Event1, INFINITE);	//Ожидание события
счетчик = счетчик + 1;
SetEvent(Event2);		//Установить событие

}
грубо, но как-то так

[Rififi]

QuadroX

пускай первый поток занимается только чтением строк из файла и складирование их в очередь, а второй поток - выгребает из очереди данные, ищет совпадение, увеличивает счётчик.

[evg_m]

первый поток
пока не конец файла
начало
читаем строку;
если прочитанная стока содержит нужную строку
/////// счетчик = счетчик + 1;
Извещаем второй поток (посылаем событие)
повторить
изещаем о заверщениии
конец

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

[QuadroX]

Спасибо за разъяснения многие моменты стали понятны. Не понятно как можно завершить поток 2? Если он работает по таком принципу:

// поток 2

while(true)
{
    WaitForSingleObject(foundEvent, INFINITE);
    matchesCount++;
    PulseEvent(countEvent);
}

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

Он ждет только события foundEvent на увеличение счетчика. Не пойму как можно реализовать этот вариант.

[QuadroX]

Поднимем тему.