多线程的问题大家帮我看看错在哪里?

2004-08-30 11:09:57 355 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

多线程会遇到什么问题？文章目录为什么多线程会出现各种各样的问题？线程执行单核CPU执行造成的问题gon多核CPU执行造成的问题JMM什么是JMM造成的问题重排序重排序遵守的规则Happens-beforeas-if-serial各种级别的重排序编译器级别的重排序处理器指令级别的重排序处理器内存级别的重排序造成的问题如何解决这些问题？总结接着上篇文章，了解了一些线程的基本知识，知道了如何去使用线程，那么在多线程的环境下，我们会遇到什么问题呢？经常能遇到的JMM是啥？多线程的三大特性是啥，跟我们平时的使用有什么关系？为什么多线程阅读详情

unit Unit2;
interface
uses
Classes,StdCtrls;

type
TFuckYou = class(TThread)
constructor Create( var Memo1:TMemo;FuckStanm:String);
private

protected
procedure Execute; override;
procedure WriteFuckYou();
public
M_Memo:^TMemo;
M_FuckSay:String;
end;

implementation
constructor TFuckYou.Create( var Memo1:TMemo; FuckStanm:string);
begin
M_Memo:=@Memo1; //AV 错误
M_FuckSay:=FuckStanm;
Suspend();
FreeOnTerminate:=True;

end;

procedure TFuckYou.WriteFuckYou();
begin
M_Memo.Lines.Add(M_FuckSay);
end;

procedure TFuckYou.Execute;
begin
Synchronize(WriteFuckYou);
end;
end.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
FuckA,FuckB:TFuckYou;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FuckA.Create(Memo1,'Fuck Your Mother');
FuckB.Create(Memo1,'Fuck Your!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FuckA.Resume();
FuckB.Resume();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FuckA.Terminate();
FuckB.Terminate();
end;
end.
得到了正确答案分会加上去的. 我这样是避免浪费

...全文

第四届“网鼎杯”网络安全大赛 - 青龙组第四届“网鼎杯”网络安全大赛 - 青龙组阅读详情

BCBX

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

BCBX 2004-09-17

打赏
举报

HELP ME!!

BCBX 2004-09-16

打赏
举报

继续

yelei923 2004-09-14

打赏
举报

分少也up

BCBX 2004-09-14

打赏
举报

加分了

Jerry529 2004-09-13

打赏
举报

M_Memo:=@Memo1; //AV 错误
你觉得这个指针你分配内存了吗？

cdsgajxlp 2004-09-13

打赏
举报

分太少

nyf1220 2004-09-13

打赏
举报

什么破程序，里面全是不文明语言，建议自己先修改

BCBX 2004-09-12

打赏
举报

pop

BCBX 2004-09-05

打赏
举报

up up to up

BCBX 2004-09-04

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
Fu_ckA,Fu_ckB:TFu_ckYou;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Fu_ckA.Create(Memo1,'Fu_ck Your Mother');
Fu_ckB.Create(Memo1,'Fu_ck Your!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Fu_ckA.Resume();
Fu_ckB.Resume();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Fu_ckA.Terminate();
Fu_ckB.Terminate();
end;

end.

unit Unit2;
interface
uses
Classes,StdCtrls;

type
TFu_ckYou = class(TThread)
constructor Create(Var Memo1:TMemo;Fu_ckStanm:String);
private
M_Memo:TMemo;//此处改了
M_Fu_ckSay:String;
protected
procedure Execute; override;
procedure WriteFu_ckYou();
end;

implementation
constructor TFu_ckYou.Create(Var Memo1:TMemo;Fu_ckStanm:String);
begin
M_Memo:=Memo1; //此处我也帮你改了一下,没有必要用指针

M_Fu_ckSay:=Fu_ckStanm;
Suspend();
FreeOnTerminate:=True;
inherited create(true);//要增加这一句,进行唤醒线程,否则一创建就被执行线程
end;

procedure TFu_ckYou.WriteFu_ckYou();
begin
M_Memo.Lines.Add(M_Fu_ckSay);
end;

procedure TFu_ckYou.Execute;
begin
Synchronize(WriteFu_ckYou);
end;
end.

chennai 2004-09-03

打赏
举报

CSDN里是不是会检查回复内容是否有敏感词的啊？

害到我要翻译成中文才行。

chennai 2004-09-03

打赏
举报

procedure TForm1.FormCreate(Sender: TObject);
begin
叼A:=T叼你.Create(Memo1,'叼你妈');
叼B:=T叼你.Create(Memo1,'叼你');
end;
本来想写详细一点的，
不过存在在FU等詞，居然不让回复

zwjchina 2004-09-03

打赏
举报

楼上修改了后是哪里报错？报什么错？

BCBX 2004-09-03

打赏
举报

加了3分了

cdsgajxlp 2004-09-01

打赏
举报

1分，怎么分啊

BCBX 2004-09-01

打赏
举报

回复： lionlsl(林)
按照你的做法还是不行的
M_Memo:=Memo1; //此处我也帮你改了一下,没有必要用指针

lionlsl 2004-08-31

打赏
举报

unit Unit2;
interface
uses
Classes,StdCtrls;

type
TFuckYou = class(TThread)
constructor Create( var Memo1:TMemo;FuckStanm:String);
private

protected
procedure Execute; override;
procedure WriteFuckYou();
public
M_Memo:TMemo;//此处改了
M_FuckSay:String;
end;

implementation
constructor TFuckYou.Create( var Memo1:TMemo; FuckStanm:string);
begin
M_Memo:=Memo1; //此处我也帮你改了一下,没有必要用指针
M_FuckSay:=FuckStanm;
Suspend();
FreeOnTerminate:=True;
inherited create(true);//要增加这一句,进行唤醒线程,否则一创建就被执行线程
end;

procedure TFuckYou.WriteFuckYou();
begin
M_Memo.Lines.Add(M_FuckSay);
end;

procedure TFuckYou.Execute;
begin
Synchronize(WriteFuckYou);
end;
end.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
FuckA,FuckB:TFuckYou;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FuckA.Create(Memo1,'Fuck Your Mother');
FuckB.Create(Memo1,'Fuck Your!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FuckA.Resume();
FuckB.Resume();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FuckA.Terminate();
FuckB.Terminate();
end;
end.

JavaD 2004-08-31

打赏
举报

M_Memo:^TMemo;
->
M_Memo:TMemo;

fei19790920 2004-08-31

打赏
举报

得到了正确答案分会加上去的. 我这样是避免浪费
***********************
没诚意，懒得理你!
这样的事情我碰得多了，上当太多

BCBX 2004-08-31

打赏
举报

HELP ME !

多线程的问题 大家帮我看看错在哪里?

相关推荐

多线程的问题大家帮我看看错在哪里?