Программные потоки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Menus, Grids;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    StringGrid1: TStringGrid;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  PoiskP = class(TThread)
  private
    { Private declarations }
    Edit1: TEdit;
    Label5: TLabel;
   protected
   procedure Execute; override;
  end;
  
  PoiskD = class(TThread)
   private
    { Private declarations }
    Edit1: TEdit;
    Label6: TLabel;
   protected
   procedure Execute; override;
 end;
 
var
  Form1: TForm1;
type
  mas = array [0..999] of integer;
var
  f: textfile;
  a: mas;
  i,n,b,buf,j,kp: integer;
  found: boolean;
 
implementation
 
{$R *.dfm}
  uses Unit2;
 
procedure PoiskP.Execute;
begin
  kp := strtoint(edit1.text);
  assignfile(f, 'file.txt');
  reset(f);
  n := 0;
  while not eof(f) do
  begin
    read(f,b);
    n := n + 1;
  end;
  closefile(f);
  reset(f);
  for i := 1 to n do
  begin
    read(f,a[i]);
    if a[i] = kp then label5.caption := inttostr(i);
  end;
  closefile(f);
end;
 
procedure PoiskD.Execute;
begin
  kp := strtoint(edit1.text);
  assignfile(f, 'file.txt');
  reset(f);
  n := 0;
  while not eof(f) do
  begin
    read(f,b);
    n := n + 1;
  end;
  closefile(f);
  reset(f);
  buf := 0;
  I := 1;
  j := n;
  found := false;
 repeat
    read(f,a[i]);
    buf := (i + j)div 2;
    if a[buf] = kp then
    begin
      found := true;
      break;
    end;
    if a[buf] < n then j := buf - 1;
    if a[buf] > n then i := buf + 1;
 until i > j ;
   if found then label6.caption := inttostr(buf);
 
  closefile(f);
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  if edit1.Text = '' then form2.show;
  if edit1.Text <> '' then
  begin
    PoiskP.Create(false);
    PoiskD.Create(false);
  end;
end;
 
end.