Re: [fpc-pascal] How to use TThread?

2013-04-18 Thread silvioprog
2013/4/18 Jeppe Græsdal Johansen > Den 18-04-2013 07:03, silvioprog skrev: > > Hi, > > I tried to use TThread in a small sample, but it don't works. The code > is very simple, and I'm sending it in attached. > > Thanks, > > -- > Silvio Clécio > My public projects - github.com/silvioprog > >

Re: [fpc-pascal] How to use TThread?

2013-04-18 Thread silvioprog
2013/4/18 Antonio Fortuny > First of all change the order of lines 25-26 > inherited Create(False); > FreeOnTerminate := True; > > instead of > FreeOnTerminate := True; > inherited Create(False); > > The, drop the DoExecute procedure and replace it by the Execute procedure. > It

Re: [fpc-pascal] How to use TThread?

2013-04-18 Thread Michael Van Canneyt
On Thu, 18 Apr 2013, Jeppe Græsdal Johansen wrote: Den 18-04-2013 07:03, silvioprog skrev: Hi, I tried to use TThread in a small sample, but it don't works. The code is very simple, and I'm sending it in attached. Thanks, -- Silvio Clécio My public projects - github.com/silvioprog He

Re: [fpc-pascal] How to use TThread?

2013-04-18 Thread Jeppe Græsdal Johansen
Den 18-04-2013 07:03, silvioprog skrev: Hi, I tried to use TThread in a small sample, but it don't works. The code is very simple, and I'm sending it in attached. Thanks, -- Silvio Clécio My public projects - github.com/silvioprog Here's a version which I thin

Re: [fpc-pascal] How to use TThread?

2013-04-17 Thread Antonio Fortuny
First of all change the order of lines 25-26     inherited Create(False);     FreeOnTerminate := True; instead of     FreeOnTerminate := True;     inherited Create(False); The, drop the DoExecute procedure and replace it by the Execute