[Dreammaster]

Здравствуйте. Пытаюсь сделать поток в Lazarus:

Код:

type 
TForm1 = class(TForm) 
private 

public 

end; 
TMyThread = class(TThread) 
private 
{ Private declarations } 
protected 
procedure Execute; override; // тут выдает ошибку
end; 
var 
Form1: TForm1; 

implementation 

{$R *.lfm} 

Админ: Пользуемся тегами при оформлении кода! В след раз будут санкции.

но в этой части кода выдает ошибку unit1.pas(22,15) Error: Forward declaration not solved "Execute;"
Не получается нагуглить причину и исправить. Кто знает - помогите.

[Aristarh Dark]

Ты бы описал процедуру-то в коде...

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type
  TForm1 = class(TForm)
  private

  public

  end;

  { TMyThread }

  TMyThread = class(TThread)
  private
  protected
  procedure Execute; override; // тут больше не выдает ошибку
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
 { TMyThread }

 procedure TMyThread.Execute;
 begin

 end;


end.