Dúvida - Debug de Thread

Delphi

28/07/2014

Observei que nem sempre quando vou fazer um debug de uma Thread consigo acompanhar o processo, as vezes usando o f7 ou f8 consigo em alguns momentos acompanhar o processo, o mesmo ocorre com o retorno, mesmo dando certo em alguns momentos, em outros começa a não trazer resposta, geralmente quando tem alguma alteração, alguém sabe o porque ocorre isso? Agradeço

Exemplo simples:


unit untProcesso;

interface

uses
  System.Classes;

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


var
  Resposta :string;
  Conta    :Integer;

implementation

procedure Processo.Execute;
begin
  Conta    := 10 + 10;
  Resposta := 'este código esta em uma Thread';
end;

end.


Chamando a Thread


procedure TfrmPrincipal.Button1Click(Sender: TObject);
 var
  Pro : Processo;
begin
  Pro := Processo.Create(False);
  Pro.FreeOnTerminate:=True;
  ShowMessage(Resposta);
  Label4.Caption := IntToStr(Conta);
end;
Itamar Souza

Itamar Souza

Curtidas 0
POSTAR