Erro numa thread de exemplo
Criei um exemplo de como usar a thread e tá dando o seguinte erro:
Method executar not found in base class.
Assim está meu projetinho. Duas Units apenas, uma contendo a Classe que eu criei e outra com .dfm e o botão para executar o método na classe thread.
Unit 1. apenas o botão.
A unit2 é onde eu declaro minha classe e seu método.
qualquer ajuda é bem-vinda.
Method executar not found in base class.
Assim está meu projetinho. Duas Units apenas, uma contendo a Classe que eu criei e outra com .dfm e o botão para executar o método na classe thread.
Unit 1. apenas o botão.
procedure TForm1.BitBtn1Click(Sender: TObject); var ThreadContador: TContador; begin ThreadContador := TContador.Create(True); ThreadContador.FreeOnTerminate(True); ThreadContador.Resume; end;
A unit2 é onde eu declaro minha classe e seu método.
unit Unit2;
interface
uses classes;
type
TContador = class(TThread)
protected
procedure Executar;override;
end;
implementation
uses Unit1;
{ TContador }
procedure TContador.Executar;
var
contador: integer;
begin
priority := tpLower;
Form1.Progressbar1.Max := 1000000;
for contador := 1 to 1000000 do
form1.ProgressBar1.Position := contador;
inherited;
end;
end.qualquer ajuda é bem-vinda.
Pjava
Curtidas 0
Respostas
Leonardo Xavier
16/02/2011
Você delcarou a sua unit2 em sua unit 1?
GOSTEI 0
Pjava
16/02/2011
Já descobri qual foi o erro. É que eu fiz essa unit na mão e toda Thread deve ter um método chamado Execute e não executar como eu fiz. Usei o wizard e funcionou. Mas mesmo assim, valeu a todos.
GOSTEI 0