掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TParallel.Forが想定した動作になりませんコードサンプルを見ていただけますか (ID:151457)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var CS: TRTLCriticalSection; begin InitializeCriticalSection(CS); try { TODO -oUser -cConsole メイン : ここにコードを記述してください } TParallel.For(0,9, procedure(i: integer) begin EnterCriticalSection(CS); Writeln(i); LeaveCriticalSection(CS); end); Writeln('end'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; DeleteCriticalSection(CS); end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.