Потоки в цикле

[Vlad2891]

Доброго времени суток! Подскажите пожалуйста как привязать потоки к данному коду. Пытаюсь разобраться но ничего не получается, просто цикл повторяется n-ое кол-во раз, а нужно чтобы он их делал последовательно. Суть программы в том, чтобы она брала из 1 файла список строк и проверяла строки на совпадение с 2ым файлом. Если строка из первого файла не встречается во втором то вывести на листбокс.
Без потоков большие объемы проверяет очень долго, например когда по 100 000 строк в первом и втором файле. Помогите разобраться! Буду очень признателен

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    ListBox2: TListBox;
    Button2: TButton;
    ListBox3: TListBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

potok = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
    public
    procedure check;
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
  f:text;
  base,s,s1,s2:string;
  kl1,kl2:integer;
  a:array [1..100] of potok;
implementation
constructor potok.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);     //çàãðóçêà áàçû
begin
Label14.Caption:='Çàãðóæàåì áàçó...';
ListBox2.Items.LoadFromFile('Text2.txt');
If OpenDialog1.Execute then begin
base:=OpenDialog1.FileName;
ListBox1.Items.LoadFromFile(base);
kl1:=ListBox1.Count;
kl2:=ListBox2.Count;
Label2.Caption:=IntToStr(kl1);
Label12.Caption:=IntToStr(kl2);
end;
OpenDialog1.Free;
Label14.Caption:='Îòäûõ';
if ListBox1.Count>0 then
Button1.Enabled:=False;
end;


procedure potok.Execute;
var
i,j,c:integer;
begin
for i:=1 to kl1 do begin
c:=0;
s1:=Form1.ListBox1.Items[i-1];
For j:=1 to kl2 do begin
s2:=Form1.ListBox2.Items[j-1];
if s1=s2 then c:=1;
end;
if c=0 then Synchronize(check);
end;
end;


procedure potok.check;
begin
Form1.ListBox3.Items.Add(s1);
end;


procedure TForm1.Button2Click(Sender: TObject);
var
pot:integer;
begin
for pot:=1 to 5 do
a[pot]:=potok.Create(false);
end;

end.

[northener]

Без потоков большие объемы проверяет очень долго

С потоками тоже будет проверять долго. Потоки - не волшебная палочка делающая суперкомпьютер из обычного десктопа.

[Stilet]

procedure potok.Execute;
var i,j,c:integer; st1,st2:TStringList;
begin
 st1:=TStringList.Create; st1.LoadFromFile(base);
 st2:=TStringList.Create; st2.LoadFromFile('Text2.txt');
 s1:='';
 for i:=0 to st1.count-1 do   if st2.IndexOf(st1[i]) then begin s1:=s1+st1[i]+#13#10; 
 st1.free; st2.free;
 Synchronize(check);
end;

А работу с ListBox из потоков убери напрочь. И файл в него не загружай.

[Vlad2891]

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

С потоками тоже будет проверять долго. Потоки - не волшебная палочка делающая суперкомпьютер из обычного десктопа.

Тогда как сделать чтобы проверял быстрее?
Мне приходит в голову только разделить первый файл поровну на n частей и для каждой написать поток с синхронизированным выводом на Листбокс

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

 for i:=0 to st1.count-1 do   if st2.IndexOf(st1[i]) then begin

А работу с ListBox из потоков убери напрочь. И файл в него не загружай.

Ругается "Type of expression must be BOOLEAN"

[lomastr_]

Ругается "Type of expression must be BOOLEAN"

рано вам еще потоки

[Stilet]

Ругается "Type of expression must be BOOLEAN"

Да? А на лентяя, который не хочет ничему учиться не ругается?
А я то думал что ты сейчас начнешь в хелпе искать описания всего этого, но видимо ранг тот же.

if st2.IndexOf(st1[i])<>-1

[Sibedir]

Сори плиз. Но вы же знаете мою неуёмную тягу решать задачки аля лабораторные по delphi.
Сравнение 2х файлов.zip
Так я и не научился нормально потоки останавливать. Всё какие-то костыли приделывать приходится.

2 Vlad2891
Много потоков не делай. Вот у меня i5 - 4 ядра. Так вот: 2 потока - 50% загрузки ядра, 3 потока - 75%. Намек ты понял.

Второе (тут я уже помогать не стану, реально - не интересно). Перед тем как сравнивать 2 больших объема данных, поработай над ними.

Например, если отсортировать списки по длине строк:

Список 1:
22
222
333
444
4444
7777777

Список 2:
1
22
333
4444
55555
666666
7777777

Вот дошел ты, скажем, до строки "222" в списке 1 и "4444" в списке 2. Всё. Дальше идти смысла нет. Можно вообще разбить списки 1 и 2 на подсписки со строками одной длины и сравнивать только списки со строками одной длины.

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

P/S: Ну и скажет мне кто, как правильно убить поток и дождаться его полной кончины. А то так и будут моим кодом программисты своих детишек, как бабайкой, пугать. Или ничё? Сойдет для личного пользования.

[ДралсяСошибками]

FreeAndNil?

[Sibedir]

Сообщение от ДралсяСошибками

FreeAndNil?

Не-а. Ругается. И правильно делает.
Добавил

  T1 := TPotok.Create (P1);

и при закрытии формы

  FreeAndNil (T1);

Матов стока!!! Половину я понял. Половину - нет. Ясно одно. Поток живее всех живых.

[ДралсяСошибками]

Посмотрел ваш код, там стоит FreeOnTerminate := True; значит достаточно Terminaate;
Ежелиб стояло False, то самому крошить поток методом Free;