多线程引用问题

[baody8]

主线程Unit1.pass的Label1
线程对像Unit2.pass,调用Label1控件,需要引用use Uniti1.pass .

那么问题来了,我主线程里面也引用了,use Unit2.pass线程对像,这样相互引用,容易怕出问题,有啥解决方法不,或者说在Unit2.pass 线程里面,不使用引用,怎么调用主线程控件Label1

[日立奔腾浪潮微软松下联想]

母鸡你在说什么~~~

[baody8]

引用 1 楼 DelphiGuy 的回复:

母鸡你在说什么~~~

有没有啥方法不引用,直接调用Label控件

[日立奔腾浪潮微软松下联想]

使用线程类，使用同步都是很早以前老版本中的用法了，现在当然也可以使用，但是用异步调用+匿名方法可以很简洁，节省大量代码。

[BlueStorm]

Delphi的较新版本，似乎抄袭了C#不少东西。

[日立奔腾浪潮微软松下联想]

我炒，CSDN大乱~~~

[日立奔腾浪潮微软松下联想]

引用 8 楼 BlueStorm 的回复:

Delphi的较新版本，似乎抄袭了C#不少东西。

匿名方法、并行库确实是模仿c#(并行库是.net框架的一部分)，Operator Overloading、Class/Record Helpers、Generics则与c#的实现差异较大。

[BlueStorm]

应该还有其他也是模仿的，例如TEncoding...

[日立奔腾浪潮微软松下联想]

对，Encoding类在.net 1.1中就有了
D7之后，由于Borland的经济形势恶化，加上被ms忽悠搞.net版本，Delphi确实损失了很多年的发展时机，一直到D2009才比较有起色。

[lyhoo163]

线程中不宜对发VCL进行操作，否则它不响应。

[p47655255]

不引用应该没法直接使用，另外线程操作vcl要用Synchronize（）。不过你可以用消息来代替。

[BlueStorm]

unit Unit2;

interface

uses
  System.Classes, Vcl.StdCtrls, System.SysUtils;

type
  TWork = class(TThread)
  private
    FLabel: TLabel;
  protected
    procedure Execute; override;
  public
    constructor Create(ALabel: TLabel);
  end;

implementation

constructor TWork.Create(ALabel: TLabel);
begin
  inherited Create(False); //线程启动后立即运行
  FreeOnTerminate := True;  //线程终止后自动释放内存
  FLabel := ALabel;
end;

procedure TWork.Execute;
var
  I: Integer;
begin
  for I := 1 to 1000000 do
  begin
    if not Terminated then
    begin
      Synchronize(procedure   //子线程不能直接操作VCL
                  begin
                    FLabel.Caption := IntToStr(I); 
                  end);
      Sleep(1);
    end
    else
      Break;
  end;
  Terminate;
end;

end.

//调用方法
   Work := TWork.Create(Label2);

[BlueStorm]

Terminate; 改为 if not Terminated then Terminate;