Transaction mémoire partagée (parallel)
De Wiki1000
(Différences entre les versions)
(Page créée avec « Une seule transaction mémoire partagée : <source lang="delphi"> //Procedure doCreateA(index:Integer); var inst:WFClasseA; begin // share the transaction inst := WFClas… ») |
|||
Ligne 29 : | Ligne 29 : | ||
</source> | </source> | ||
− | [[ | + | [[Category:Parallèle]] |
Version actuelle en date du 17 octobre 2011 à 09:35
Une seule transaction mémoire partagée :
//Procedure doCreateA(index:Integer); var inst:WFClasseA; begin // share the transaction inst := WFClasseA.Create; inst.unCode := 'X'+inttostr(index); inst.Caption := 'Objet A'+inttostr(index); inst.unEntier := 1+Trunc(Random(100)); end; //Procedure CreateSomeA; var tk:Int64; begin tk := GetTickCount; try withP Transaction do for var idx:=1 to 10 do begin parallel doCreateA(idx); end; finally tk := GetTickCount-tk; showmessage(Format('%s ms',[TickToString(tk)])); end; end;
Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |