Delphi потоки

[Mrsqler]

Только начал учить потоки,до этого никогда с ними не работал,нашел в инете небольшой мануал,всё сделал как там написано,но программа не компилится.

unit Unit1;

interface

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

type
   TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

end.

Вот что во втором юните,в созданном Thread

unit Unit2;

interface

uses
  Classes;

type
  TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ TNewThread }



procedure TNewThread.Execute;
begin
  while true do {ничего не делаем};
end;


end.

Появляется ошибка Unsatisfied forward or external declaration: 'TNewThread.Execute'

[Stilet]

Ты в первом юните зачем описал TNewThread ?
implementation
uses Unit2 этого хватит чтоб подключить второй модуль и использовать его классы.

[Mrsqler]

А если у меня во втором потоке используется работа с Edit ?Программа не хочет компилироваться,ругается именно на эти edit.Где их объявлять нужно?На форме вроде всё лежит.
Undeclared identifier: 'Edit1'

[Человек_Борща]

почитай о синхронизации. Поток это не основная программа и оттуда нельзя напрямую работать с остальной программой и/или другими потоками.

[Mrsqler]

опять ничего не работает...
Смысл в том,что надо реализовать движение progressBar через поток
в Unit1 ничего не писал(в статье про это ничего не сказано было)
unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

 uses Unit2;

{$R *.dfm}

end.

в unit2

unit Unit2;

interface

uses
  Classes;

type
  TNewThread = class(TThread)
  private
   Progress: integer;
    procedure SetProgress;
  protected
    procedure Execute; override;
  end;

implementation

{ TNewThread }

procedure TNewThread.Execute;
var
  i: integer;
begin
  for i:=0 to 100 do
  begin
    sleep(50);
    Progress:=i;
    Synchronize(SetProgress);
  end;
end;

procedure TNewThread.SetProgress;
begin
  Form1.ProgressBar1.Position:=Progress;
end;

end.

ругается на Sleep,и не видит Form1 хотя я её подключил в uses.

[Человек_Борща]

В Unit'е с потоком нет нигде об упоменании Unit1(там Form1) и Windows(там sleep). Вот в чем проблема. И да, слип слишком маленький, 1 сек поставьте чтобы видно было результат.

[Mrsqler]

Спасибо,теперь всё работает!Нормальных статей нигде нету...(