|
#1
|
|||
|
|||
Thread в Lazarus
Здравствуйте. Пытаюсь сделать поток в 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;" Не получается нагуглить причину и исправить. Кто знает - помогите. Последний раз редактировалось Admin, 20.08.2019 в 22:35. |
#2
|
||||
|
||||
Ты бы описал процедуру-то в коде...
Код:
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. Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |