paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 09:58:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

multithreadprocs: English

Browse Source 
git-svn-id: trunk@49933 -
This commit is contained in:
mattias 2015-10-03 18:36:25 +00:00
parent 9f58c5b0c2
commit 83c3757b85
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/multithreadprocs/examples/parallelloop1.lpr
View File

@ -54,7 +54,7 @@ begin
Results[Index]:=-1;
i:=Index;
while i<List.Count-1 do begin
if List[i]=Value then // hier wuerde die teure Vergleichsoperation stehen
if List[i]=Value then // imagine here an expensive compare function
Results[Index]:=i;
inc(i,BlockCount);
end;
@ -72,7 +72,7 @@ begin
BlockCount:=ProcThreadPool.MaxThreadCount;
SetLength(Results,BlockCount);
ProcThreadPool.DoParallel(@FindBestParallel,0,BlockCount-1,@Data);
// Ergebnisse zusammenfassen
// collect results
Result:=-1;
for Index:=0 to BlockCount-1 do
if Results[Index]>=0 then
@ -87,7 +87,7 @@ begin
Result:=-1;
i:=0;
while i<List.Count do begin
if List[i]=Value then // hier wuerde die teure Vergleichsoperation stehen
if List[i]=Value then // imagine here an expensive compare function
Result:=i;
inc(i);
end;