Syfre le 17 octobre 2011 à 08:01

2011-10-17T08:01:05Z

Syfre : Page créée avec « Un transaction mémoire par exécuteur : //Procedure doProcess(inst:WFClasseA); var inst:WFClasseA; begin // One separate transaction // Use priva… »

2011-10-17T07:35:32Z

Page créée avec « Un transaction mémoire par exécuteur : <source lang="delphi"> //Procedure doProcess(inst:WFClasseA); var inst:WFClasseA; begin // One separate transaction // Use priva… »

Nouvelle page

Un transaction mémoire par exécuteur :

<source lang="delphi">
//Procedure doProcess(inst:WFClasseA);
var inst:WFClasseA;
begin
// One separate transaction
// Use private to allocate a new transaction in a new context
withP private Transaction do
begin
inst.unCode := 'X'+inttostr(index);
inst.Caption := 'Objet A'+inttostr(index);
inst.unEntier := 1+Trunc(Random(100));
end;
end;

//Procedure ProcessSomeA(AList:WFClasseAList);
var tk:Int64;
begin
tk := GetTickCount;
try
foreachP var inst in AList do
begin
parallel dProcess(inst);
end;
finally
tk := GetTickCount-tk;
showmessage(Format('%s ms',[TickToString(tk)]));
end;
end;
</source>

[[Category:Parallèle]]

@@ Ligne 30 : / Ligne 30 : @@
 end;
 </source>
 [[Category:Parallèle]]

Transaction mémoire isolée (parallel) - Historique des versions

Syfre le 17 octobre 2011 à 08:01

Syfre : Page créée avec « Un transaction mémoire par exécuteur : //Procedure doProcess(inst:WFClasseA); var inst:WFClasseA; begin // One separate transaction // Use priva… »