[babay89]

Здравствуйте! Образовался такой вопрос: Как взять данные из memo, которые ещё не были взяты потоком. Наверное непонятно.
У меня есть Memo, в котором хранятся данные. Как загрузить в поток строку, которую ещё не взял один из потоков. Я понимаю, что сдесь нужна критическая секция, но как использовать её в связке с memo не пойму.
В memo есть такие строки:
чавыа
ывфыв
укцук
выаывп
Нужно что бы каждый поток взял по одной строке, а не все потоке одну строку.

[NumLock]

как вариант:

Код:

interface

uses
  SyncObjs,
...
implementation

var
  CriticalSection: TCriticalSection;

function GetMemo: String;
begin
  CriticalSection.Enter;
  if Form1.Memo1.Lines.Count>0 then
  begin
    Result:=Form1.Memo1.Lines[0];
    Form1.Memo1.Lines.Delete(0);
  end else Result:='';
  CriticalSection.Leave;
end;
...
initialization
  CriticalSection:=TCriticalSection.Create;

finalization
  CriticalSection.Free;

из потоков вызывай GetMemo.

если удалять нельзя, то завести текущий номер строки и в блоке Enter-Leave возвращать строку по номеру и делать номеру инкремент.

[Aristarh Dark]

Немного добавлю в код:

Код:

interface

uses
  SyncObjs,
...
implementation

var
  CriticalSection: TCriticalSection;

function GetMemo: String;
begin
  CriticalSection.Enter;
  try  //<------------------------------------------------
    if Form1.Memo1.Lines.Count>0 then
    begin
      Result:=Form1.Memo1.Lines[0];
      Form1.Memo1.Lines.Delete(0);
    end else Result:='';
  finally
    CriticalSection.Leave;
  end;
end;
...
initialization
  CriticalSection:=TCriticalSection.Create;

finalization
  CriticalSection.Free;

[babay89]

Сообщение от NumLock

если удалять нельзя, то завести текущий номер строки и в блоке Enter-Leave возвращать строку по номеру и делать номеру инкремент.

Извините, пожалуйста, но я ни чего не понял. Можно подробнее?
Хоть и первая функция подходит, но она удаляет ровно столько строк, сколько потоков, а нужно что бы удалялось, пока в мемо не будет строк.

[NumLock]

ну так если создать столько потоков сколько строк в Мемо, то все будет хорошо.

[babay89]

Сообщение от NumLock

ну так если создать столько потоков сколько строк в Мемо, то все будет хорошо.

Нет, так не пойдет! Пользователь сам задает кол-во потоков. Нужно как-то в цикл эт запихнуть что ли...
Да 3-4 тысячи потоков не есть гуд.

[NumLock]

ну тогда цикл создания потоков от 0 до кол-ва строк в Мемо - 1, с ограничением количества потоков семафором. либо цикл с удалением строк из Мемо пока не кончатся. вариантов много...

[babay89]

Сообщение от NumLock

цикл с удалением строк из Мемо пока не кончатся. вариантов много...

Подскажите, как реализовать?

[NumLock]

Код:

  while Memo1.Lines.Count>0 do
    with TThread.Create...

[babay89]

Сообщение от NumLock

Код:

  while Memo1.Lines.Count>0 do
    with TThread.Create...

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

[NumLock]

ну так см. 2-ое сообщение.

[babay89]

Сообщение от NumLock

ну так см. 2-ое сообщение.

Не то. Там берется ровно столько строк, сколько потоков. А нужно что бы потоки брали строки пока они не кончятся в мемо.

[NumLock]

там вообще нет потоков

1. переписать функцию как:

Код:

function GetMemo(var S: String): Boolean;

возвращает true если строка вернулась, т.е. была в Мемо. при этом из Мемо удаляет
2. поток проверяет результат функции и если вернет false прекращается

[lmikle]

Сообщение от babay89

Не то. Там берется ровно столько строк, сколько потоков. А нужно что бы потоки брали строки пока они не кончятся в мемо.

Ну тебе же выше написали как.
Делаешь метод, который возвращает очередную строку из Memo или пустую строку, если строки кончились. Внутри метода надо работать через CriticalSection. Каждый поток для получения данных "дергает" этот метод, если вернулась пустая строка, то завершается (ну или ждет пока не появяться новые данные). Сам метод, в зависимотсти от того, что нужно делать, либо удаляев взятые строки, либо просто запоминает последнюю взятую.

Вот _пример_ второго варианта:

Код:

type
  TMyForm = class(TForm)
    Memo1 : TMemo;
  ...
  private
    FLastProcessedLine : Integer; // поставить в -1 в конструкторе или в OnCreate
  public
    function GetNextLine : String;
  end;

var
  csGetNewLine : TCriticalSection;
...

function TMyForm.GetNextLine : String;
begin
  csGetNewLine.Enter
  Try
    If Memo1.Lines.Count-1 > FLastProcessedLine
      Then
        Begin
          Inc(FLastProcessedLine);
          Result := Memo1.Lines[FLastProcessedLine];
        End
      Else Result := '';
  Finally
    csGetNewLine.Leave;
  End;
end;

...

initialization
  csGetNewLine := TCriticalSection.Create;

finalization
  csGetNewLine.Free;

end.

Как-то так.

[babay89]

Все равно получается ровно столько строк, сколько потоков. Я не знаю что делать уже...
Вот исходный код. Может быть я что-то не правильно делаю...
http://rghost.ru/48526833