社区
Delphi
帖子详情
我现在在一个多线程的程序~有个问题,请大家帮帮我!(在线待)
luinayi
2003-08-21 10:52:31
就是说每个线程都要同时读取一个值如计数器Count的值,怎么样才能不会冲突.
也就是有没有可以锁定这一段小程序的代码!
小程序如下:
读取 L_Count:=Count;
自增 Count:=Count+1;
每个线程都不能同时执行这段程序的办法.只能是等某一线程执行完才执行.
先谢谢大家了..
...全文
25
6
打赏
收藏
我现在在一个多线程的程序~有个问题,请大家帮帮我!(在线待)
就是说每个线程都要同时读取一个值如计数器Count的值,怎么样才能不会冲突. 也就是有没有可以锁定这一段小程序的代码! 小程序如下: 读取 L_Count:=Count; 自增 Count:=Count+1; 每个线程都不能同时执行这段程序的办法.只能是等某一线程执行完才执行. 先谢谢大家了..
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
luinayi
2003-08-21
打赏
举报
回复
请问一下 是不是 Synchronize 就有提供互斥的功能!
luinayi
2003-08-21
打赏
举报
回复
我试试
我不懂电脑
2003-08-21
打赏
举报
回复
使用互斥呀
firstshine
2003-08-21
打赏
举报
回复
unit Unit2;
interface
uses
Classes;
Var
Count:Integer;
type
TestThread = class(TThread)
private
FTemp:Integer;
Procedure GetVar;
Procedure ReadFunc;
protected
procedure Execute; override;
end;
implementation
{ Important: Methods and properties of objects in VCL or CLX can only be used
in a method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure TestThread.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ TestThread }
procedure TestThread.Execute;
begin
ReadFunc;
end;
procedure TestThread.GetVar;
begin
FTemp:=Count;
Inc(Count);
end;
procedure TestThread.ReadFunc;
//这是一个读取全局变量的例子
var
L_Count:Integer;
begin
Synchronize(GetVar);//这一句最关键
L_Count:=FTemp;
//下面,用L_Count来干什么都可以了
end;
end.
ld9702
2003-08-21
打赏
举报
回复
这样是否和单线程一样了呢?
lxpbuaa
2003-08-21
打赏
举报
回复
TThread1.Oper;
begin
L_Count:=Count;
end;
TThread1.Execute;
begin
Synchronize(Oper);
end;
TThread2.Oper;
begin
Count:=Count+1;
end;
TThread2.Execute;
begin
Synchronize(Oper);
end;
—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
JAVA
多线程
精讲下
本课程是《零基础学Java》系列课程中的"
多线程
"相关课程.授课形式延续了之前课程的授课风格。内容细腻、详尽,由浅入深!通过本门课程的学习你可以深刻理解Java
多线程
的原理及实现运行机制,深刻学习
多线程
的生命...
线程互斥与同步,线程全部内容
线程
Java面试复习大纲2.0(持续更新)
Java面试复习大纲2.0(持续更新)2018-02-26 奋斗蒙 Java帮帮面试复习大纲(Java帮帮总结)【人事】31道,不准备就掉坑的
问题
【简历】1年简历模板一【简历】2年简历模板一【简历】3年简历模板一【面试】面试练习题大集合(持续更新中...欢迎
问题
投稿)更多整理的
问题
点击公众号中间的“简历/面试”菜单即可面试+简历+沟通+工作流程+谈判_汇总想要成为合格的Java
程序
员或工程师到底需...
精进:如何成为
一个
很厉害的人--作者:采铜
精进:如何成为
一个
很厉害的人 作者:采铜 文章目录精进:如何成为
一个
很厉害的人序 用更勇敢的方式去生活01 时间之尺 我们应该怎样对待时间活在“全部的
现在
” 从当下出发,联结过去与未来那么,
一个
人应该怎样对待时间呢?不同场合,不同的时间视角由当下向过去与未来延伸对五年后的自己提问 如何解决远期未来与近期未来的冲突?两种未来视角下的思维差异如何解决生活里两种未来的冲突?我们总是在重复地抓起沙子 把时...
题解 | #2021年11月每天新用户的次日留存率#
但是,最后他们给我反馈。本人java开发,跨专业,到
现在
也就是只有2-3个offer,
一个
大厂岗位不好(base:北京),按去年的薪资计算应该是32W左右,上海的中科院微小卫星研究院总。其实也就是18所,做电源系统这一块的,线上腾讯会议,对方没开摄像头本来说是10:30,但我等了将近
一个
小时首先自我介绍和主要的项目经历围绕着项目提问了几个
问题
,一面面试的人太多啦,在等候的时候看到共有21人在排队,而且每个人只有十五分钟时间~3v1面,面试官很好,问到的都是非技术
问题
,但感觉面试的人好多,不知道什么时候。
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章