paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 17:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

some more annotation

Browse Source 
git-svn-id: trunk@7076 -
This commit is contained in:
micha 2005-04-15 09:26:23 +00:00
parent 66da3891a0
commit 68c4a47215
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
examples/synchronize.pp
View File

@ -35,13 +35,15 @@
program Synchronize;
{$mode objfpc}{$H+}
{$threading on}
{ threading directive not needed anymore for 1.9.8+ }
{ $threading on}
uses
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
{$ifdef UNIX}
cthreads,
CThreads,
{$endif}
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils, Extctrls;
@ -117,6 +119,8 @@ threadvar
var
Form1 : TForm1;
TotalCount: integer;
{ GlobalData is an example of what you should NOT do :)
Access from multiple threads to same variable unprotected }
GlobalData: integer;
constructor TAThread.Create(CreateSuspended: boolean);