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

[Stilet]

Такое предложение:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  { Thr }

  Thr=class(TThread)
    public _From,_To,_j:integer; Memo:TMemo;
    private procedure Update;
    protected procedure execute; override;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var    tt:TThreadList;
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer; th:Thr;
begin
 tt:=TThreadList.Create;
 j:=0;
 for i:=0 to 3 do begin
   th:=Thr.Create(true); tt.Add(th);
   th.Memo:=Memo1;
   th._From:=j;
   inc(j,3);
   th._To:=j;
   inc(j);
   th.Start;
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  tt.Clear;
  tt.Free;
end;

{$R *.lfm}

{ Thr }

procedure Thr.Update;
begin
 Memo.Lines[_j]:=TimeToStr(Time)+IntToStr(Random(500));
end;

procedure Thr.execute;
var i:integer;
begin
 while true do begin
   for i:=_From to _To do begin
     _j:=i;
     Synchronize(@Update);
   end;
   Sleep(100);
 end;
end;

end.

Подойдет в качестве идеи?

[bilibian]

Stilet, интересно!

Я просто для каждого потока определил диапазон в общем списке мемо.

Допустим в мемо 10 записей, которые мы хотим распределить на 2 потока.

В первый поток пойдут записи от 1 до 5, во второй от 6 до 10.

[doktor255]

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

doktor255, я пробовал Ваш способ, но в дальнейшем не получается обратиться к конкретной строке уже в самом потоке. Тут уже не применить index, lines и тому подобные команды.

Вариант номер раз

MemoTemp.Text := StringList[i];
THread.Create(MemoTemp);

Вариант номер два

var StringListArray: Array Of TStringList;
begin
Setlength(StringListArray, 10);
StringListArray[0] := StringList.Create;
StringListArray[0].Add('Первая строка');
StringListArray[0].Add('Вторая строка');

P.S. Было бы желание логически мыслить. Остальное приложится.

[bilibian]

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

P.S. Было бы желание логически мыслить. Остальное приложится.

В точку! Спасибо!

[doktor255]

На здоровье